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SECTION I 
Introduction to BASIC 



HP BASIC/3000 is a programming language designed for use at a keyboard terminal. It may also be 
used for batch jobs on paper tape and cards. To use BASIC at a terminal, the terminal must gain 
access to the BASIC/3000 Interpreter through the HP Multiprogramming Executive Operating 
System (MPE/3000). The BASIC/3000 Interpreter is the control program for BASIC/3000. 

BASIC/ 3000 consists of statements for writing programs and commands for controlling program 
operation. This section describes how to log on and log off, how to enter commands and statements 
and make corrections. A few simple programs are used for illustration, but the actual programming 
language is not described until Section II. 

This manual assumes that the user knows how to connect his terminal, and is familiar with his 
terminal keyboard. Special keys with particular functions in BASIC/3000 are described in this 
section. 

In this section only, characters typed by the computer are underlined to distinguish them from user 
input. Subsequent sections assume that this distinction is clear to the user. 
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Special Keys 



return 

linefeed 
CTRL 

CTRLH (H°) 
CTRL X (X c ) 

CTRL Y (Y°) 
BREAK 



Must be pressed after every command and statement. It terminates the 
line and causes the teleprinter to return to the first print position. BASIC 
returns a linefeed. 

Advances the teleprinter one line. 

When pressed simultaneously with another key, converts the key to a 
control character that is usually non-printing. 

Deletes the previous character in a line. It prints the character \ for each 
character deleted. 

Cancels the line currently being typed. It types three exclamation points 
on the line and then gives a return and linefeed to the beginning of the 
next line. 

Suspends a particular BASIC/3000 program or command and returns to the 
BASIC/3000 Interpreter. To return control to a program, type GO. 

Stops all BASIC/3000 activity and returns the user to the operating system 
(MPE/3000). BASIC/3000 can be re-entered by typing RESUME. 
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Prompt Characters 



BASIC/ 3000 uses a set of prompting characters to signal to the user that certain input is expected 
or that certain actions are completed. 

> The prompt character for the BASIC/3000 Interpreter; a BASIC command or statement 
is expected. 

The prompt character for the MPE Operating System; MPE commands such as HELLO or 
BASIC are expected. 

? User input is expected during execution of an INPUT statement. 

?? Further input is expected during execution of an INPUT statement. 

» BASIC expects a continuation line when the previous line was terminated by a &. 

! ! ! A full line has been deleted with CTRL X. 

\ A single character was deleted with CTRL H. 

??? A BASIC command was mistyped; re-enter it correctly. 
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Logging On and Off 



LOGGING ON 

Once the terminal is connected and ready, the user presses the carriage return. MPE responds with 
a colon (:) at the beginning of the line. The user may now log on. He should know his user and 
account identification codes, and also the user and account passwords. 



To log on, type: 

JOANG and STUDENT are sample 
user and account identifica- 
tion codes. A period must 
be typed between them. 
The computer types a mask 
over which the passwords 
are typed. This preserves 
password privacy. 



The last line identifies the Multi-programming Executive Operating System (MPE/3000). 



ENTERING BASIC 

Following log on, the MPE/3000 Operating System signals it is ready for the next command by 
printing a colon. The user may now request the BASIC/3000 Interpreter by typing BASIC. 

To enter BASIC, type: 

BASIC signals that it has control with a 
greater-than sign at the start of the 
line. 



BASIC commands and statements can now be entered. Each command or statement is prompted 
by the greater-than sign at the start of a new line. 



^HELLO JOANG .STUDENT 
USER PASSWORD? 

xxxxxxxxx 

ACCOUNT PASSWORD? 
XXXXXXXXX 

SESSION NUMBER = #S5 

WED, MAY 1 6, 1973, 2t26 PM 

HP32000B.Q1 .25 



:BASIC 
BASIC 01 .0 



1-4 



LEAVING BASIC 

When the user is through, he returns control to MPE/3000 with the EXIT command. 



To leave BASIC, type: _>EXI T 

The computer prints : END OF PROGRAM 

and MPE/3000 signals that it has resumed 

control with a colon. J_ 



LOGGING OFF 

When a session at the terminal is finished, the user logs off with the MPE/3000 command BYE. 
He must have already exited from the BASIC Interpreter by typing EXIT. When MPE/3000 prints 
a colon, the user can type BYE. 



To log off, type: iBYZ 

MPE/3000 records the date and the time. CPU (SEC) = 3 

It also records the number of minutes CONNECT — ( MI N) — = — 2_ 

the terminal was connected and the END * OF^SESSI ON^ ? ^ * 2 * 28 PW 

seconds of central processor time used. 



SUSPENDING BASIC 

The user may want to return to the MPE/3000 Operating System temporarily. He can leave BASIC, 
return to MPE/3000 control, enter MPE/3000 commands and then return to the same point in his 
BASIC program. To do this, he uses the SYSTEM command or the BREAK key. For operation of 
the BREAK key, see Special Keys, this section. 

To suspend BASIC operation : >S Y S T E M 

The computer types a colon: t_ 



The user may then enter MPE/3000 commands. When he wishes to return to BASIC, he types the 
MPE/3000 command RESUME. The system responds with a > . 
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Correcting Errors 



Several types of errors may be made while logging on. We will consider spelling mistakes, format 
errors and incorrect passwords or codes. The methods for correcting these errors are general and can 
be used in BASIC as well as under control of MPE/3000. 

Corrections can be made while the line is being entered if the error is noticed before return is 
pressed. The control character CTRL H (H°) can be used to correct a few characters just typed, 
or the control character CTRL X (X c ) can be used to cancel the line and start fresh. 



Suppose the user misspells the command 

HELLO. H c will delete the last character :HELO\L0 JOANG .STUDENT 

and print a back slash. The user retypes yg £R PASSWORD ? 

the character correctly and finishes the 
line. When he presses return, the line is 
entered correctly. 

If several characters have been typed after the error, H c must be typed for each character to be 
deleted. 



In this case, four characters including 
the blank are deleted. 



: HELO JOWWLO JOANG .STUDENT 



USER PASSWORD? 



Another method is to use X° to cancel the line. X° must be typed before return is pressed. 



To cancel the line, type X c 
Three exclamation points are typed 
and the computer responds with a 
carriage return and linefeed. The 
user retypes the line: 



tHELOl ! ! 

HELLO JOANG. STUDENT 
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BASIC Commands and Stataments 



Commands 

BASIC/3000 commands instruct the BASIC/3000 Interpreter to perform certain control functions. 
Commands differ from the statements used to write a program in the BASIC/3000 language. A 
command instructs the interpreter to perform some action immediately, while a statement is an 
instruction to perform an action only when the program is run. A statement is always preceded by 
a statement number; a command never is. 

Any BASIC/ 3000 command can be entered following the BASIC prompt character > . Each 
command is a single word that must be typed in its entirety with no embedded blanks. If mis- 
spelled, the computer will return an error message. Some commands have parameters to further 
define command operation. 

For instance, EXIT is a command that signals completion of a BASIC program and return to the 
operating system. It has no parameters. Another command, LIST, prints the program currently 
being entered. It may have parameters to specify that only part of the program is to be listed, or to 
indicate a particular list destination. 



Statements 

Statements are used to write a BASIC/3000 program that will subsequently be executed. Each 
statement performs a particular function. Every statement entered becomes part of the current 
program and is kept until explicitly deleted or the user exits from BASIC with EXIT. 

A statement is always preceded by a statement number. This number is an integer between 1 and 

15999. The statement number indicates the order in which the statements will be executed. State- I 

ments are ordered by BASIC from the lowest to the highest statement number. Since this order 

is maintained by the interpreter, it is not necessary for the user to enter statements in execution 

order so long as the numbers are in that order. 

Following each statement, return must be pressed to inform the interpreter that the statement is 
complete. The interpreter generates a linefeed and prints the prompt character > on the next line 
to signal that the statement is accepted. If an error is made entering the statement, the computer 
prints an error message. 

BASIC/3000 statements have a free format. This means that blanks are ignored. 



For instance, all these statements 
are equivalent. 



>se PRINT s 

>30 PRINT S 

>3 0PRINTS 

_> 30PRINTS 
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Any statement except REM (to introduce remarks) can continue on more than one line. Each line 
to be continued must end with the character &; only the first line has a statement number. When 
the computer expects a continuation line, it prompts with two greater-than characters. 



The statement 100 PRINT 35+5 >IM PRINT* 

is entered on two lines: .ii^S+S 



Error Messages 

If an error is made in a line and the line is entered with return, the interpreter types a message. The 
message consists of the word ERROR followed by @ and a number indicating about how many 
non-blank characters were read before an error was detected. 



If this line is entered; >j g PR I NG S 

the computer prints a ERR 0R®2 

message. 



The user then presses return and enters the correct line after the BASIC prompt character > . 

If the mistake is not obvious, type any character after the message instead of pressing return. The 
computer will print a diagnostic message. 



_>3 0 PR I NG S 
For instance: ERR0RG2; 

UNRECOGNIZABLE STATEMENT TYPE 



Typing a semi-colon causes the diagnostic message to be printed. Any other character, except a 
colon, could have been typed with the same result. A colon will cause an abort. 
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Changing or Deleting a Statement 

If an error is made before return is pressed, the error can be corrected with CTRL H (H°) or the line 
may be cancelled with CTRL X (X c ). (See Correcting Errors, above). After return is pressed, the 
error can be corrected by deleting or changing the statement. 

To change a statement, simply type the statement number followed by the correct statement. 



To change this statement: _>3 0 PRINT X 

retype it as: _*3 0 PRINT S 



A change such as this can be made any time before the program is run. 
To delete a statement, type the statement number followed by return. 

Statement 30 is deleted : j>3 0 

The DELETE command, described in section II, is useful to delete a group of statements. 
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BASIC Programs 



Any statement or group of statements that can be executed constitutes a program. 
A program can have as few as one statement. 



This is an example of a 

program with only one _>100 PRINT 35+5 

statement. 



100 is the statement number. PRINT is the key word or instruction that tells the interpreter the 
kind of action to perform. In this case, it prints the result of the expression that follows. 35+5 is 
an arithmetic expression. It is evaluated by the interpreter, and when the program is run, the result 
is printed. 

The statement 100 PRINT 35+5 is a complete program since it can run with no other statements 
and produce a result. Usually a program contains more than one statement. 



_M0 INPUT A,B,C,D,E 

These three statements are a program: ±2Q LET S = (A+B+C+D+E ) /5 

>30 PRINT S 



This program, which calculates the average of five numbers, is shown in the order of its execution. 
It could be entered in any order if the statement numbers assigned to each statement were not 
changed. 



_>20 LET S = (A+B+C+D+E >/5 

This program runs exactly like the > j0 i^puT A B C D E 

program above. ~$ q PRINT S 



It is generally a good idea to number statements in increments of 10. This allows room to inter- 
sperse additional statements as needed. 
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User's Work Area 



When statements are typed at the terminal, these statements become part of the user's work area. 
All statements in the user's work area constitute the current program. 

Any statement in the user's work area can be edited or corrected; the resulting statement will then 
replace the previous version in the user's work area. 

When the user exits from BASIC with the EXIT command, the work area is cleared. If, however, 
he only suspends BASIC operation with the SYSTEM command, the BREAK key, or the CTRL Y 
keys, the user's work area is not changed. 
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Listing a Program 



At any time while a program is being entered, the LIST command can be used to produce a listing 
of the statements that have been accepted by the computer. LIST causes the computer to print a 
listing of the current program at the terminal. 

After deleting or changing a line, LIST can be used to check that the deletion or correction has 
been made. 



Note that the greater-than prompt character is not printed in the listing, but is printed when the 
list is complete to signal that BASIC is ready for the next command or statement. 

Should the statements have been entered out of order, the LIST command will cause them to be 
printed in ascending order by statement number. 



A correction is made while 
entering a program : 



>\Q UNINPUT A,B,C,D,E 

>20 PRWLET S = (A+B+C+D+E ) /5 

>30 PRINT S 



To check the correction, 
list the program : 



>LIST 

10 INPUT A.B.CD.E 

20 LET S= (A+B+C+D+E) /5 

30 PRINT S 



> 



For instance, the program 
is entered in this order: 



>20 LET S = (A+B+C+D+E) /5 
_>3 0 PRINT S 
_>10 INPUT A,B,C,D,E 



The list is in correct order 
for execution : 



>LIST 

10 INPUT A.B.C.D.E 

20 LET S = (A+B+C+D+E) /5 

30 PRINT S 



> 
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Running a Program 



After the program is entered and, if desired, checked with LIST, it can be executed with the RUN 
command. RUN will be illustrated with two sample programs. 

The first program has one line: _>1 00 PRINT 35+5 

When run, the result of the expression >R U N 

35+5 is printed: £0_ 

Because the program contains a PRINT statement, the result is printed when the program is run. 

The second sample program averages a 2l}® INPUT A,B,C,D,E 

group of five numbers. The numbers >20 LET S = (A+B+C+D+E ) /5 

must be input by the user: 0 PRINT S 

Each of the letters following the word INPUT and separated by commas names a variable that will 
contain a value input by the user from the terminal. When the program is run, the interpreter 
signals that input is expected by printing a question mark. The user enters the values following 
the question mark. They are entered with a comma between each successive value. 

The statement LET S = (A+B+C+D+E)/5 assigns the value of the expression to the right of the 
equal sign to the variable S on the left of the equal sign. The expression first adds the variable 
values within parentheses and then divides them by 5. The result is the value of S. 

When the program is run, the user _>RU N 

enters input values and the com- 

77,5,6,8,9 

puter prints the result: JL 
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Deleting a Program 



If a program that has been entered and run is no longer needed, it can be deleted with the SCRATCH 
command. Typing SCR or SCRATCH deletes whatever program has been entered by the user during 
the current session. 

The first program entered was 100 PRINT 35+5. After it has run, it should be scratched before 
entering the next program. Otherwise both programs will run when RUN is typed. They will run in 
the order of their statement numbers. For instance, if both programs are currently in the user's 
work area, the program with numbers 10 through 30 executes before line 100. 



>100 PRINT 35+5 
>10 INPUT A,B,C,D,E 
>20 LET S=(A+B+C+D+E)/5 

Both programs will run >30 PRINT S 

when RUN is typed : >R U N 

27,5,6,8,9 
7_ 
40 



To avoid confusing results, a program that has been entered and run can be deleted with SCRATCH: 

_>100 PRINT 35+5 

After entering and running: >R U N 

~~ 40 

the program is scratched: _>S CRA TCH 

The users work area is now cleared and another program can be entered. 



_>10 INPUT A,B,C,D,E 
_>20 LET S = (A+B+C+D+E)/5 

The second program is _>3 0 PRINT S 

entered: _>RUN 

_?15,25,32,1 1,29 
22.4 



Unless this program is to be run again, it can now be scratched and a third program entered. 
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Documenting a Program 



Remarks that explain or comment can be inserted in a program with the REM statement. Any 
remarks typed after REM will be printed in the program listing but will not affect program 
execution. The remarks cannot be continued on the next line, but as many REM statements 
can be entered as are needed. 



The sample program to average 5 numbers 
can be documented with several remarks: 



List of sample program 
including remarks : 



>5 REM THIS PROGRAM AVERAGES 
>7 REM 5 NUMBERS 
>15 REM 5 VALUES MUST BE INPUT 
>25 REM S CONTAINS THE AVERAGE 



within the existing program. A list 



>LIST 

5 REM THIS PROGRAM AVERAGES 

7 REM 5 NUMBERS 
10 INPUT A,B,C,D,E 
15 REM 5 VALUES MUST BE INPUT 
20 LET S = (A+B+C+D+E) /5 
25 REM S CONTAINS THE AVERAGE 
30 PRINT S 

> 



The statement numbers determine the position of the remarks 
will show them in order: 



When run, the program will execute exactly as it did before the remarks were entered. 
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SECTION II 
Essentials of BASIC 



The first section introduced the user to BASIC programming. This section describes the statements 
needed to write a simple BASIC program. It also describes the commands used to run a program, to 
edit a program, and to save and manipulate library programs. 

The section begins with a description of expressions used in BASIC, and the constants, variables, 
functions and operators used in the formation of expressions. 

Subsequent sections discuss particular features of more advanced BASIC. 

The simple PRINT statement and RUN command used in Section I are used again in this section 
prior to the explanation of the full capabilities of PRINT and RUN. 
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Expressions 



An expression combines constants, variables, or functions with operators in an ordered sequence. 
When evaluated, an expression must result in a value. An expression that, when evaluated, is con- 
verted to an integer, is called an integer expression. Constants, variables, and functions represent 
values; operators tell the computer the type of operation to perform on these values. 

Some examples of expressions are: 

(P + 5)/27 P is a variable that must have been previously 

assigned a value. 5 and 27 are constants. The 
slash is the divide operator. Parentheses group 
those portions of the expression evaluated first. 

If P = 49, it is an integer expression with the 
value 2. 

(N-(R+5))-T N, R, and T must all have been assigned 

values. + and - are the add and subtract 
operators. The innermost parentheses 
enclose the part evaluated first. 

If N=20, R=10, and T=5, the value of the 
integer expression is zero. 



CONSTANTS 

A constant is either numeric or it is a literal string. 

Numeric Constants. A numeric constant is a positive or negative decimal number including zero. 
It may be written in any of the following three forms: 

• As an integer — a series of digits with no decimal point. 

• As a fixed point number — a series of digits with one decimal point preceding, following, or 
embedded within the series. 

• As a floating point number — an integer or fixed point number followed by the letter E and 
an optionally signed integer. 
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Examples of Integers : 

1234 
-70 
0 

Examples of Fixed Point Numbers: 

1234. 
1234.56 
-.0123 



Floating Point Numbers. In the floating point notation, the number preceding E is a magnitude that 
is multiplied by some power of 10. The integer after E is the exponent, that is, it is the power of 10 
by which the magnitude is multiplied. 

The exponent of a floating point number is used to position the decimal point. Without this 
notation, describing a very large or very small number would be cumbersome: 

1E+35 = 100000000000000000000000000000000000 
1E-35 = .00000000000000000000000000000000001 



Examples of Floating-Point Numbers: 

1E+23 =lxl0 23 = 100000000000000000000000 

1.0E23 (same as above) 

.001E26 (same as above) 

1.02E+4 =1.02xl0 4 = 10200. 

1.02E-4 = .000102 



Within the computer, all these constants are represented as floating-point real numbers whose 
precision is 6 or 7 digits and whose size is between 10" ^ and 10^. 
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Literal Strings. A literal string consists of a sequence of characters in the ASCII character set 
enclosed within quotes. The quote itself is the only character excluded from the character string. 
By using an integer equivalent of the graphic character, even the quote may be included in a 
character string (see Strings, Section V). 

Examples of Literal Strings: 

"ABC" **" ( a null, empty, or zero length string) 

w ! ! WHAT A DA Y ! I " " " (a string with two blanks) 
M X Y Z " 

Blank spaces are significant within a string. 



VARIABLES 

A variable is a name to which a value is assigned. This value may be changed during program 
execution. A reference to the variable acts as a reference to its current value. Variables are either 
numeric or string. 

Numeric variables are a single letter (from A to Z) or a letter immediately followed by a digit 
(from 0 to 9): 

A AO 
P P5 
X X9 

A variable of this type always contains a numeric value that is represented in the computer by a 
real floating-point number. Other numeric representations can be specifically requested with the 
type statement (see Variable Types, Section IV). These types are integer, long floating-point, 
and complex. 

A variable may also contain a string of characters. This type of variable is identified by a variable 
name consisting of a letter and $, or a letter, digit, and $: 

A$ A0$ 
P$ P5$ 

The value of a string variable is always a string of characters, possibly null or zero length. String 
variables can be used without being declared with a DIM statement (see section V) only if the 
variable contains a single character. 
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If a variable names an array (see Arrays, Section III), it may be subscripted. When a variable is sub- 
scripted, the variable name is followed by one or two subscript values enclosed in parentheses. If 
there are two subscripts, they are separated by a comma. A subscript may be an integer constant 
or variable, or any expression that is evaluated to an integer value: 

A(l) A0(N,M) 
P(l,l) P5(Q5,N/2) 
X(N+1) X9(10,10) 

A simple numeric variable and a subscripted numeric variable may have the same name with no 
implied relation between the two. The variable A is totally distinct from variable A(l,l). 

Simple numeric variables can be used without being declared. Subscripted variables must be 
declared with a DIM statement (see Section III) if the array dimensions are greater than 10 rows, 
or 10 rows and 10 columns. The first subscript is always the row number, the second the column 
number. The subscript expressions must result in a value between 1 and the maximum number of 
rows and columns. 

String arrays differ from numeric arrays in that they have only one dimension, and hence only one 
subscript. Also, the name of a string array and a simple string variable may not be the same (see 
String Arrays in Section V). Examples of subscripted string array names are: 

A$(l) A0$(N) 



FUNCTIONS 

A function names an operation that is performed using one or more parameter values to produce a 
single value result. A numeric function is identified by a three-letter name followed by one or more 
formal parameters enclosed in parentheses. If there is more than one, the parameters are separated 
by commas. The number and type of the parameters depends on the particular function. The 
formal parameters in the function definition are replaced by actual parameters when the function 
is used. 

Since a function results in a single value, it can be used anywhere in an expression where a constant 
or variable can be used. To use a function, the function name followed by actual parameters in 
parentheses (known as a function call) is placed in an expression. The resulting value is used in the 
evaluation of the expression. 

Examples of common functions: 

SQR(x) where x is a numeric expression that results in a value > 0. When called, it 
returns the square root of x. For instance, if N = 2, SQR(N+2) = 2. 

ABS(x) where x is any numeric expression. When called, it returns the absolute 
value of x. For instance, ABS(-33) = 33. 
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BASIC/ 3000 provides many built-in functions that perform common operations such as finding the 
sine, taking the square root, or finding the absolute value of a number. The available functions are 
listed in Appendix E. In addition, the user may define and name his own functions should he need 
to repeat a particular operation. How to write functions is described in Section VI, User-Defined 
Functions. 

The functions described so far are numeric functions that result in a numeric value. Functions 
resulting in string values are also available. These are identified by a three-letter name followed by 
a $. String functions are described with user-defined functions in Section VI; available built-in 
string functions are listed in Appendix E. 



OPERATORS 

An operator performs a mathematical or logical operation on one or two values resulting in a 
single value. Generally, an operator is between two values, but there are unary operators that pre- 
cede a single value. For instance, the minus sign in A - B is a binary operator that results in sub- 
traction of the values; the minus sign in -A is a unary operator indicating that A is to be negated. 

The combination of one or two operands with an operator forms an expression. The operands that 
appear in an expression can be constants, variables, functions, or other expressions. 

Operators may be divided into types depending on the kind of operation performed. The main 
types are arithmetic, relational, and logical (or Boolean) operators. 

The arithmetic operators are : 

+ Add (or if unary, no operation) A + B or +A 



Subtract (or if unary, negative) 



A - B or -A 



* 



Multiply 



A X B 



/ 



Divide 



A^-B 



Exponentiate (if is used, it is 
changed internally to **) A B 



MOD 



Modulo; remainder from division A - B X INT(A + B) 



where INT(x) returns the largest 
integer < x. If A and B are positive, 
A MOD B is the remainder from 
A^-B. 
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In an expression, the arithmetic operators cause an arithmetic operation resulting in a single numeric 
value. 



The relational operators are: 

Equal A = B 

< Less than A < B 

> Greater than A > B 

< = Less than or equal to A < B 

> = Greater than or equal to A > B 



<> or # Not equal (if # is used, it is 

changed internally to <> ) A B 

When relational operators are evaluated in an expression they return the value 1 if the relation is 
found to be true, or the value 0 if the relation is false. For instance, A = B is evaluated as 1 if A 
and B are equal in value, as 0 if they are unequal. 

Maximum and minimum operators are: 

MIN Select the lesser of two values A MIN B 

MAX Select the greater of two values A MAX B 

These operators are evaluated as follows: 

A MIN B = A if A is less than or equal to B; = B if B is less than A 

A MAX B = A if A is greater than or equal to B ; = B if B is greater than A 

Logical or Boolean operators are: 

AND Logical "and" A AND B 

OR Logical "or" A OR B 

NOT Logical complement NOT A 

Like the relational operators, the evaluation of an expression using logical operators results in the 
value 1 if the expression is true, the value 0 if the expression is false. 

Logical operators are evaluated as follows: 

A AND B =1 (true) if A and B are both 0; = 0 (false) if A = 0 or B = 0 
A OR B =1 (true) if A ¥= 0 or B =t 0; = 0 (false) if both A and B = 0 
NOT A =1 (true) if A = 0; = 0 (false) if A ¥= 0 
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A string operator is available for combining two string expressions into one : 

+ Concatenation A$ + B$ 

The values of A$ and B$ are joined to form a single string; the characters in B$ immediately follow 
the last character in A$. If A$ contains "ABC" and B$ contains "DEF", then A$ + B$ = "ABCDEF" 
(see Strings, Section V). 



EVALUATING EXPRESSIONS 

An expression is evaluated by replacing each variable with its value, evaluating any function calls, 
and performing the operations indicated by the operators. The order in which operations is per- 
formed is determined by the hierarchy of operators: 

** (highest) 
NOT 
* / MOD 
+ - 

+ (string concatenate) 
MIN MAX 

Relational (=, <, >,<=,>=,< >) 
AND 

OR (lowest) 

The operator at the highest level is performed first followed by any other operators in the hierarchy 
shown above. If operators are at the same level, the order is from left to right. Parentheses can be 
used to override this order. Operations enclosed in parentheses are performed before any operations 
outside the parentheses. When parentheses are nested, operations within the innermost pair are 
performed first. 

For instance: 5 + 6*7 is evaluated as 5 + (6X7) = 47 

7/14*2/5 is evaluated as ((7/14)X2)/5 = .2 

If A=l, B=2, C=3, D=3.14, E=0 

then: A+B*C is evaluated as A +(BXC) = 7 

A*B+C is evaluated as (AXB)+C = 5 
A+B-C is evaluated as (A+B)-C =0 
(A+B)*C is evaluated as (A+B)XC = 9 

A MIN B MAX C MIN D is evaluated as ((A MIN B)MAX C)MIN D = C = 3 
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When a unary operator immediately follows another operator of higher precedence, the unary 
operator assumes the same precedence as the preceding operator. For instance, 

B**_B**C is evaluated as (B _B ) C = 1/64 or .015625 

In a relation, the relational operator determines whether the relation is equal to 1 (true) or 
0 (false): 

(A*B) < (A-C/3) is evaluated as 0 (false) since A*B=2 which is not less than A-C/3=0. 

In a logical expression, other operators are evaluated first for values of zero (false) or non-zero 
(true). The logical operators determine whether the entire expression is equal to 0 (false) or 1 (true): 

E AND A-C/3 is evaluated as 0 (false) since both terms in the expression 

are equal to zero (false). 

A+B AND A*B is evaluated as 1 (true) since both terms in the expression 

are different from zero (true). 

A=B OR C=SIN(D) is evaluated as 0 (false) since both expressions are false (0). 

A OR E is evaluated as 1 (true) since one term of the expression (A) 

is not equal to zero. 

NOT E is evaluated as 1 (true) since E=0. 

If any ambiguity exists between the relational operator "=" and the assignment operator, the equal 
sign is treated as an assignment operator: 

A=B=1 assigns 1 to both A and B. 

A=1=B assigns 1 to A if B equals 1, or 0 to A if B does not equal 1. 

For rules governing the evaluation of relational expressions using strings, see Comparing Strings 
in Section V. 
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Statements 

Statements essential to writing a program in BASIC are described here. Statements in general are 
described in Section I. It should be recalled that all statements must be preceded by a statement 
number and are terminated by pressing the return key. Statements are not executed until the 
program is executed with the RUN command. 
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Assignment Statement 



This statement assigns a value to one or more variables. The value may be in the form of an expres- 
sion, a constant, a string, or another variable of the same type. 

Form 

When the value of the expression is assigned to a single variable, the forms are: 

variable = expression 
LET variable = expression 

When the same value is to be assigned to more than one variable, the forms are: 

variable = variable = . . . = variable = expression 
LET variable = variable = . . . = variable = expression 

Several assignments can be made in one statement if they are separated by commas: 

variable = expression, . . ., variable = expression 
LET variable = expression, . . ., variable = expression 

Note that the word LET is an optional part of the assignment statement. 



Explanation 

In this statement, the equal sign is an assignment operator. It does not indicate equality, but is a 
signal that the value on the right of assignment operator be assigned to the variable on the left. 
If any ambiguity exists between the relational operator "=" and the assignment operator, the 
equal sign is treated as an assignment operator. 

When a variable to be assigned a value contains subscripts, these are evaluated first from left to 
right, then the expression is evaluated and the resulting value moved to the variable. 

If a value is assigned to more than one variable, the assignment is made from right to left. For 
instance, in the statement A=B=C=2, first C is assigned the value 2, then B is assigned the current 
value of C, and finally A is assigned the value of B. 
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Examples 

10 LET A =3 .02 
20 A=5.02 

The variable A is assigned the value 5.02. Statements 10 and 20 have the same result. 
30 X=Y7=Z=Z1=0 

Each variable X, Y7, Z, and Zl is set to zero. This is a simple method for initializing variables at the 
start of a program. 

35 LET N=2 

40 LET AtN] = N=9 

First N is assigned the value 2 in line 35. In line 40 N is assigned the value 9, then the array 
element A(2) is assigned the value 9. 

50 N=0 

60 LET N=M+1 

70 LET AIN]=N 

Statements 50 through 70 set the array element A(l) to 1. By repeating statements 60 and 70, 
each array element can be set to the value of its subscript. 

80 A=10.5,B=7.5 
90 B$="ABC",C$=B$ 

Variable A is set to 10.5, then B is set to 7.5. The string variable B$ is assigned the value ABC, 
then C$ is assigned the value of B$ (or ABC). 

100 C$=B$="ABC" 

This statement has the same result as statement 90. 

110 LET A=10.5 # B=7.5 t B$=C$: w ABC" 

Statement 110 has the same effect as the two statements 80 and 90. 
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REM Statement 



This statement allows the insertion of a line of remarks in the listing of the program. The remarks 
do not affect program execution. 



REM any characters 

Like other statements, REM must be preceded by a statement number. Unlike other statements, it 
cannot be continued on the next line. 

Explanation 

The remarks introduced by REM are saved as part of the BASIC program, and printed when the 
program is listed or punched. They are, however, ignored when the program is executed. 

Remarks are easier to read if REM is followed by spaces, or a punctuation mark as in the examples. 



Form 



Examples 



10 
20 
30 
40 



REMt THIS IS AN EXAMPLE 
REM OF REM STATEMENTS * 

REM ANY CHARACTERS MAY FOLLOW REM: "//**!! 4&4.ETC . 
REM... REM STATEMENTS ARE NOT EXECUTED 
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GOTO Statement 



GOTO overrides the normal sequential order of statement execution by transferring control to a 
specified statement. The statement to which control transfers must be an existing statement in the 
current program. 



Form 

GOTO statement label 

GOTO integer expression OF statement label, statement label, . . . 

GOTO may have a single statement label, or may be multi-branched with more than one state- 
ment label. 

If the multi-branch GOTO is used, the value of the integer expression determines the label in the 
list to which control transfers. 



Explanation 

If the GOTO transfers to a statement that cannot be executed (such as REM or DIM), control 
passes to the next sequential statement after that statement. GOTO cannot transfer into or out 
of a function definition (see Section VI). If it should transfer to the DEF statement, control 
passes to the line following the function definition. 

The labels in a multi-branch GOTO are selected by numbering them sequentially starting with 1 , 
such that the first label is selected if the value of the expression is 1 , the second label if the expres- 
sion equals 2, and so forth. If the value of the expression is less than 1 or greater than the number 
of labels in the list, then the GOTO is ignored and control transfers to the statement immediately 
following GOTO. 
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Examples 



The example below shows a simple GOTO in line 200 and a multi-branch GOTO in line 600. 

100 LET 1=0 
200 GOTO 600 
300 PRINT I 

400 REM THE VALUE OF I IS ZERO 
500 LET 1=1+1 

600 GOTO 1+1 OF 300,500,800 

700 REM THE FINAL VALUE OF I IS 2 

800 PRINT I 



>RUN 
0 
2 



When run, the program prints the initial value of I and the final value of I. 
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GOSUB/RETURN Statements 



GOSUB transfers control to the beginning of a simple subroutine. A subroutine consists of a 
collection of statements that may be performed from more than one location in the program. In a 
simple subroutine, there is no explicit indication in the program as to which statements constitute 
the subroutine. A RETURN statement in the subroutine returns control to the statement following 
the GOSUB statement. 



Form 

GOSUB statement label 

GOSUB integer expression OF statement label, statement label, . . . 
RETURN 

GOSUB may have a single statement label, or may be multi-branched with more than one state- 
ment label. In a multi-branch GOSUB, the particular label to which control transfers is determined 
by the value of the integer expression. The RETURN statement consists simply of the word 
RETURN. 



Explanation 

A single-branch GOSUB transfers control to the statement indicated by the label. A multi-branch 
GOSUB transfers to the statement label determined by the value of the integer expression. As in a 
multi-branch GOTO, if the value of the expression is less than 1 or greater than the length of the 
list, no transfer takes place. A GOSUB must not transfer into or out of a function definition 
(see Section VI). 

When the sequence of control within the subroutine reaches a RETURN statement, control returns 
to the statement following the GOSUB statement. 

Within a subroutine, another subroutine can be called. This is known as nesting. When a RETURN 
is executed, control transfers back to the statement following the last GOSUB executed. Up to ten 
GOSUB statements can occur without an intervening RETURN; more than this causes a terminating 
error. 



2-16 



Examples 



In the first example, line 20 contains a simple GOSUB statement; the subroutine is in lines 50 
through 70, with RETURN in line 70. 



10 LET B=90 
20 GOSUB 50 

30 PRINT "SINE OF B IS *JA 
40 GOTO 80 

50 REM: THIS IS THE START OF THE SUBROUTINE 
60 LET A=SIN(B) 
70 RETURN 

80 REM: PROGRAM CONTINUES WITH NEXT STATEMENT 
>RUN 

SINE OF B IS .893992 



The GOSUB statement can follow the subroutine to which it transfers as in the example below. 



10 LET B = 90 
20 GOTO 100 

30 REM: THIS IS START OF SUBROUTINE 
40 LET A=SIN<B) 
50 RETURN 

60 REM: OTHER STATEMENTS CAN APPEAR HERE 

70 REM: THEY WILL NOT BE EXECUTED 

80 A=24,B=50 

90 PRINT A; B 
100 GOSUB 30 
110 PRINT A 

120 REM: A SHOULD EQUAL .893992 
130 PRINT B 

140 REM: B SHOULD EQUAL 90 
>RUN 
.893992 
90 
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This example shows a multi-branch GOSUB in line 20. The third subroutine executed has a nested 
subroutine. An IF. . .THEN statement is used in the example; should its function not be clear, see 
Conditional Statements below in this section. 



10 A = 0 

20 GOSUB A+l OF 100,150,200 
30 LET A=A+1 
40 IF A<3 THEN GOTO 20 
50 GOTO 300 

60 REM: STATEMENT 50 BRANCHES AROUND ALL THE SUBROUTINES 
100 REM: FIRST SUBROUTINE IN MULTIBRANCH GOSUB 
110 LET X=SQR(A+25) 
120 PRINT "X = ";X 
130 RETURN 

150 REMt SECOND SUBROUTINE IN MULTIBRANCH GOSUB 

160 LET Y=C0SCX> 

170 PRINT "Y = COSINE X = "jY 

180 RETURN 

200 REM: THIRD SUBROUTINE IN MULTIBRANCH GOSUB 

210 REM: IT CONTAINS A NESTED SUBROUTINE 

220 LET Y=Y+X 

225 PRINT "Y + X = "|Y 

230 GOSUB 260 

240 RETURN 

250 REM: STATEMENT 240 RETURNS CONTROL TO STATEMENT 30 

260 REM: FIRST STATEMENT IN NESTED SUBROUTINE 

270 B=SIN(Y) 

280 PRINT "SINE Y = "jB 

290 RETURN 

295 REM: STATEMENT 290 RETURNS CONTROL TO STATEMENT 240 
300 REM: PROGRAM CONTINUES WITH NEXT STATEMENT 

>RUN 

X = 5 

Y = COSINE X = .283 663 

Y + X = 5.28366 
SINE Y = -.841213 
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END/STOP Statements 

The END and STOP statements are used to terminate execution of a program. Either may be used, 
neither is required. An END is assumed following the last line entered in the current program. 



Form 

END 
STOP 

The END statement consists of the word END; the STOP statement of the word STOP. 



Explanation 

Both END and STOP terminate the program run. END has a different function from STOP only 
when programs are segmented (see Section X, Segmentation). When END is executed in a program 
segment that has been called by another program with INVOKE, control returns to the statement 
after INVOKE. 

Whenever STOP is used, the program terminates. STOP in a program called with INVOKE 
terminates all program execution, including any suspended programs. 
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Examples 



These three programs are effectively the same: 



10 LET A=2,B=3 
20 C=A**-A**B 
30 PRINT C 
>RUN 
.015625 



10 LET A=2,B=3 
20 C=A**-A**B 
30 PRINT C 
40 END 
>RUN 
.015625 



10 LET A=2,B=3 
20 C=A**-A**B 
30 PRINT C 
40 STOP 
>RUN 
.015625 



When sequence is direct and the last statement in the current program is the last statement to be 
executed, END or STOP are optional. They have a use, however, when sequence is not direct and 
the last statement in the program is not the last statement to be executed: 



100 LET A =2 

120 60SUB 140 

130 END 

140 LET B=A+1 

150 X=A**(B**A) 

160 PRINT X 

170 RETURN 
>RUN 
512 



The subroutine at line 140 follows the END statement. 
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10 LET A=2 
20 X=A**2+A 
30 PRINT X 

40 IF X<100 THEN GOTO 80 
50 PRINT "X= "|X 
60 PRINT "A= ";A 
70 STOP 
80 A=A+1 
90 GOTO 20 
>RUN 
6 

12 

20 

30 

42 

56 

72 

90 

110 
X= 110 
A= 13 



The STOP statement at line 70 is skipped until the value of X is equal to or exceeds 100. 
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Looping Statements 



The looping statements FOR and NEXT allow repetition of a group of statements. The FOR state- 
ment precedes the statements to be repeated, and the NEXT statement directly follows them. The 
number of times the statements are repeated is determined by the value of a simple numeric 
variable specified in the FOR statement. 



Form 

FOR variable = expression TO expression 

FOR variable = expression TO expression STEP expression 

The variable is initially set to the value resulting from the expression after the equal sign. When the 
value of the variable passes the value of the expression following TO, the looping stops. If STEP is 
specified, the variable is incremented by the value resulting from the STEP expression each time the 
group of statements is repeated. This value can be positive or negative, but should not be zero. If a 
STEP expression is not specified, the variable is incremented by 1. 

The NEXT statement terminates the loop: 
NEXT variable 

The variable following NEXT must be the same as the variable after the corresponding FOR. 



Explanation 

When FOR is executed, the variable is assigned an initial value resulting from the expression after 
the equal sign, and the final value and any step value are evaluated. Then the following steps occur: 

1. The value of the FOR variable is compared to the final value; if it exceeds the final value 
(or is less when the STEP value is negative), control skips to the statement following NEXT. 

2. All statements between the FOR statement and the NEXT statement are executed. 

3. The FOR variable is incremented by 1, or if specified, by the STEP value. 

4. Return to step 1. 

NOTE: Unless specified with a variable type statement, the values of the variables used to index a 
FOR loop are assigned as real by default. Round-off errors can increase or decrease the 
number of steps when non -integer step sizes are used. 
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APR 1978 



The user should not execute the statements in a FOR loop except through a FOR statement. 
Transferring control into the middle of a loop can produce undesirable results. 

FOR loops can be nested if one FOR loop is completely contained within another. They must not 
overlap. 



Examples 



Each time the FOR statement executes, the user inputs a value for R and the area of a circle with 
that radius is computed and printed: 



10 FOR A=l TO 5 

20 INPUT R 

30 PRINT "AREA OF CIRCLE WITH RADIUS ";R;" IS ";3.M*R**2 

40 NEXT A 
>RUN 



AREA 


OF 


CIRCLE 


WITH 


RADIUS 


1 


IS 


3.14 


72 
















AREA 


OF 


CIRCLE 


WITH 


RADIUS 


2 


IS 


12.56 


74 
















AREA 


OF 


CIRCLE 


WITH 


RADIUS 


4 


IS 


50.24 


78 
















AREA 


OF 


CIRCLE 


WITH 


RADIUS 


8 


IS 


200.96 


716 
















AREA 


OF 


CIRCLE 


WITH 


RADIUS 


IS 


IS 


803 .84 



The FOR loop executes six times, decreasing the value of X by 1 each time: 



10 FOR X=0 TO -5 STEP -1 

20 PRINT X-5 

30 NEXT X 
>RUN 
-5 
-6 
-7 
-8 
-9 
-10 
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The first X elements of the array P(N) are assigned values. When N = X, the loop terminates. In 
this case, the value of X is input as 3: 



10 INPUT X 
20 FOR N=l TO X 
30 LET P[N) = N+1 
40 PRINT PtN] 
50 NEXT N 
»RUN 
?3 

2 

3 

4 



The examples below show legal and illegal nesting. A diagnostic is printed when an attempt is made 
to run the second example : 



10 REM.. THIS EXAMPLE IS LEGAL 

20 FOR A=l TO 10 

30 FOR B = l TO 5 

40 LET XlA,B)=0 

5 0 NEXT B 

60 NEXT A 



10 REM.. THIS EXAMPLE IS ILLEGAL 
20 FOR A = l TO 10 
3 0 FOR B = l TO 5 
40 LET XtA,BJ=0 

5 0 NEXT A 
60 NEXT B 
>RUN 

•FOR* - ' NEXT ' VARIABLES DON'T MATCH IN LINE 50 
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Conditional Statements 



Conditional statements are used to test for specific conditions and specify program action depending 
on the test result. The condition tested is a numeric expression that is considered true if the value is 
not zero, false if the value is zero. Conditional statements are always introduced by an IF statement; 
an ELSE statement may follow the IF statement. Both IF and ELSE statements may be followed by 
a series of statements enclosed by DO and DOEND. 



Form 

IF expression THEN statement label 

IF expression THEN statement 

IF expression THEN DO 
statement 



DOEND 

An IF. . .THEN statement can be followed by an ELSE statement to specify action in case the 
value of the expression is false. Like IF, ELSE can be followed by a statement, a statement label, 
or a series of statements enclosed by DO. . .DOEND. 

ELSE statement label 

ELSE statement 

ELSE DO 
statement 



DOEND 

ELSE statements never appear in a program unless preceded by an IF. . .THEN statement. An 
ELSE statement must immediately follow an IF. . .THEN statement or the DOEND statement 
corresponding to an IF. . .THEN DO statement; no intervening statements (including REM) are 
permitted. DO. . .DOEND statements may follow only an IF. . .THEN or an ELSE statement. 
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The four diagrams below show all possible combinations of conditional statements. Items enclosed 
by [ ] are optional; one of the items enclosed by { } must be chosen. Statements immediately 
following THEN and ELSE are not labeled; all other statements must be labeled. 



{label 
statement 



label ELSE 



label 

statement 



• label IF expression THEN DO 
label statement 



label DOEND 



label ELSE 



label \ 
statement} 



label IF expression THEN 

label ELSE DO 
label statement 



label 

statement 



label DOEND 



• label IF expression THEN DO 
label statement 

label DOEND 



label ELSE DO 
label statement 



label DOEND 
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Explanation 



The expression following IF is evaluated, and if true the program transfers control to the label 
following THEN or executes the statement following THEN. If DO follows THEN, the program 
executes the series of labeled statements terminated by DOEND. The program then continues. If the 
expression is false, control transfers immediately to the next statement or to the statement following 
DOEND if THEN DO was specified. 

When an ELSE statement follows the IF. . .THEN statement, it determines the specific action should 
the IF expression be false. When the expression is true, the ELSE statement or the group of ELSE 
statements enclosed by DO. . .DOEND is skipped, and the program continues with the next state- 
ment after ELSE or DOEND. 

A FOR statement can be specified in a DO. . .DOEND group; if so, the corresponding NEXT must 
be within the same DO. . .DOEND group. (See FOR. . .NEXT statement description in this 
section.) 

IF statements are nested when an IF statement occurs within the DO. . .DOEND group of another 
IF statement. In such a case, each ELSE is matched with the closest preceding IF that is not itself 
part of another DO. . .DOEND group. 



Examples 

The various types of IF statement are illustrated with the following examples: 

10 IF A=B THEN 30 
20 LET A=B 
30 PRINT A,B 



If A equals B, the program skips to line 30, otherwise, it sets A equal B in line 20 and continues. 
In either case, line 30 is executed. 



10 IF A=B THEN PRINT B 
20 ELSE PRINT A,B 

If A equals B, the value of B is printed, otherwise, both values are printed. The program then 
continues. 
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10 IF A=B THEN 100 
20 ELSE 200 



Program control transfers to line 100 if A equals B, to line 200 if not. 



10 IF A =B THEN GOTO 100 
20 aSE GOTO 200 



These two statements are identical in effect to the preceding two statements. 



10 IF A<100 THEN A=A+5 
20 ELSE DO 
3 0 LET X=A 
40 GOTO 100 
50 DOEND 
60 GOTO 10 
100 PRINT X 



If A is less than 100, it is increased by 5 and control skips to line 60 where control is returned to 
line 10. When A is equal to or greater than 100, X is set equal to A and control skips to line 100. 



5 INPUT A 
10 IF A<100 THEN DO 
20 A=A+1 
30 GOTO 200 
40 DOEND 
50 ELSE DO 
60 X=A 
70 A = 0 
80 G0SUB 850 
90 DOEND 

100 PRINT "A>=100" 
120 END 

200 PRINT "A="|A 
210 END 

850 PRINT "X="iX 

851 PRINT "A=-}A 

852 RETURN 



If A is less than 100, it is increased by 1 and control goes to line 200. If A is equal to or greater 
than 100, X is set equal to A, A is set to zero and the subroutine at line 850 is executed. The 
subroutine returns control to line 100. 
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If a value less than 100 is input for A, line 200 is executed and the program ends: 



>RUN 
?75 
A= 76 



If a value greater than 100 is input for A, the subroutine is executed, then line 100 is executed and 
the program terminates: 



>RUN 
7150 
X= 150 
A= 0 
A>= 100 



The examples below illustrate nested IF. . .THEN statements. 



10 INPUT A,B,C 

20 IF <A+10) = <B+5> THEN DO 

30 A=B 

40 IF A>C THEN A=C 
50 ELSE C=B 
60 D0END 
70 PRINT A,B,C 
>RUN 

75,10,15 

10 10 10 
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With the particular values input, the first IF is true and the second IF is false. As a result both A 
and C are set equal to B. 



10 INPUT A ,B,C 
20 IF A>B THEN DO 
30 IF B>C THEN DO 
40 IF C=10 THEN DO 

5 0 C=C+I 
60 GOTO 200 

70 DOEND 
80 ELSE GOTO 220 

90 DOEND 
100 aSE DO 

1 10 IF C=10 THEN B=C+A 

120 ELSE C=B-A 

130 GOTO 180 

140 DOEND 
150 DOEND 

160 PRINT "A< = 3.,A="JA 
170 GOTO 230 

180 PRINT "A>B,B< = CB='*;B 
190 GOTO 230 
200 PRINT "A>B»C,C=10" 
210 GOTO 230 

220 PRINT "A>B>C,C<»10, C=";C 
230 END 
>RUN 

710,15,20 
A<B,A= 10 

>RUN 

715,5,10 
A>B,B<C,B= 25 

>RUN 

720,15,5 

A>B>C ,C<>10,C= 5 



So that nested IF statements may be easier to follow, the LIST command indents them as shown 
in these examples. 
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PRINT Statement 



PRINT causes data to be output at the terminal. The data to be output is specified in a print list 
following PRINT. 



Form 

PRINT 

PRINT print list 

The print list consists of items separated by commas or semicolons. The list may be followed by a 
comma or a semicolon. If the list is omitted, PRINT causes a skip to the next line. Items in the 
list may be numeric or string expressions, special print functions for tabbing or spacing, or FOR 
loops to provide repeated output. The form of the FOR loop is: 

(FOR statement, print list) 

where the print list contains any items allowed in the PRINT statement list including other FOR 
loops. The FOR statement is described earlier in this section under the heading Looping Statements. 

Explanation 

The contents of the print list is printed. If there is more than one item in the print list, commas 
or semicolons must separate the items. The choice of a comma or semicolon affects the output 
format. 

The output line is divided into consecutive fields, each of 15 characters except possibly the last. 
For example, on a terminal with default print length of 72 characters, there will be four fields of 
15 characters and one of 12 characters. When a comma separates items, each item is printed 
starting at the beginning of a field. When a semicolon separates items, each item is printed immedi- 
ately following the preceding item. In either case, if there is not enough room left in the line to 
print the entire item, printing of the item begins on the next line. The length of the print line 
can be changed by using the MARGIN statement (Section VIII). 

The separator between items can be omitted if one or both of the items is a quoted string. In this 
case, a semicolon is inserted automatically. 

A carriage return and linefeed are output after PRINT has executed, unless the output list is 
terminated by a comma or semicolon. In this case, the next PRINT statement begins on the 
same line. 

If an expression appears in the print list, it is evaluated and the result is printed. Any variable must 
have been assigned a value before it is printed. Each character between quotes in a string constant 
is printed, excluding quotes. 
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If a FOR loop is included in the print list, each item in the print list associated with the FOR 
statement is printed once for each time the FOR loop is executed. 

Numeric values are left justified in a field whose width is determined by the magnitude of the 
number. The smallest field is six characters. Numeric output format is discussed in detail below. 

For the printing of data according to a customized format, see the PRINT USING and PRINT # 
USING statements described in Section IX. 

Examples 

When items are separated by commas, they are printed in consecutive fields per line; separated by 
semicolons, they directly follow one another. In the example below, the items are numeric, so 
each item is assigned a minimum of six characters. 



10 LET A=B=C=D = E=15 
20 LET A 1 =B1 =C 1 =D1 =E1 
30 PRINT A,B,C1 ,C 
40 PRINT 



>R 
15 
15 
15 



=20 



30 mi nj a ,b ,ui , u 
40 PRINT AjBiCi f C J D> E; A 1 ; D1;E1 
50 PRINT A,B;C»D 
UN 



15 



20 



15 
15 



15 



15 



15 



20 
15 
15 



20 



15 

20 20 



In the example below, a DIM statement is used to specify the number of characters in each string; 
if omitted, the strings are assumed to have only one character. 



10 DIM B$13 ],C$[3 ] 
20 C$=B$="ABC" 
30 PRINT B$,C$ 
>RUN 

ABC ABC 
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In the example below, the first PRINT statement evaluates and then prints three expressions. The 
second PRINT skips a line. The third and fourth PRINT statements combine a string constant with 
a numeric expression. No fields are used in the print line for string constants unless a comma 
appears as separator. The fourth PRINT statement prints output on the same line as the third 
because the third statement is terminated by a comma. 



10 


LET A=B=C=D = E=15 




20 


LET Al=BI=Cl=Dl=El=20 




30 


PRINT A*B,B/C/D1+30,A+B 




40 


PRINT 




50 


PRINT **A*B =";A*B, 




60 


PRINT "THE SUM OF A AND B 


IS M }A+B 


>RUN 




225 


30.05 


30 



A*B = 225 THE SUM OF A AND B IS 30 



A FOR statement can be specified in a print list with its own print list, all included within 
parentheses: 



10 FOR 1=1 TO 3 
20 INPUT R 
30 Atn=3.14*R**2 
40 NEXT I 

50 PRINT (FOR 1=1 TO 3, All]) 
>RUN 
?2 
?3 
?4 

12.56 28.26 50.24 



Note that NEXT is not needed when the FOR statement is included in a print list. 



NUMERIC OUTPUT FORMATS 



Numeric quantities are left justified in a field whose width is determined by the magnitude of the 
item. The width includes a position at the left of the number for a possible sign and at least one 
position to the right containing blanks. The width is always a multiple of three; the minimum 
width is six characters. 
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Integers 

An integer with a magnitude less than 1000 requires a field width of six characters: 



sign number trailing blanks 

i_J L 



3 digits 
_i i 



An integer with a magnitude between 1000 and 999999 inclusive requires a field width of nine 
characters: 



sign number 

i L_ 



trailing blanks 



6 digits 
J I I i L 



Examples of integers : 

The integers below are less than 1000 and greater than -1000: 

10 PRINT 1 ;999j30;-300;+295 
>RUN 

1 999 30 -300 295 

These integers are between 1000 and 999999 or between -1000 and -999999: 

10 PRINT 1000;+32751;-999999|45678 
>RUN 

1000 32751 -999999 45678 

These integers are mixed in magnitude, but none are greater than 999999 or less than -999999: 



10 PRINT 1| 1000;999;+32751|20;-999999;-300}45678|+296|5000 
>RUN 

1 1000 999 32751 20 -999999 -300 45678 296 

5000 



If an integer has a negative sign it is printed; a positive sign is not printed. 
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Fixed-Point Numbers 



A fixed point number requires a field width of 12 positions. If the magnitude of the number is 
greater than or equal to .09999995 and less than 999999.5, or is less than .1 but can be printed 
with six significant digits, the number is printed as a fixed-point number with a sign. Trailing zeros 
are not printed, but a trailing decimal point is printed to show the number is not exact. The 
number is left-justified in the field with trailing blanks. The sign is printed only if it is negative. 



sign number trailing blanks 

J_ L_ , / , 

6 digits & decimal pt. 
I i i i i i i I i i l 



Examples of fixed -point numbers : 

10 PRINT 999999.4; .09999996; .000044 
>RUN 

999999. .1 .000044 



Floating-Point Numbers 

Any number, integer or fixed-point, with a magnitude greater than the magnitude of the numbers 
presented above, is printed as a floating-point number using a total field width of 15 positions: 



sign 
1 



number 

1 



E+exponent 



trailing blanks 





6 digits & decimal pt. 
i i i i I i 


E 

i 1,1 ... ,. 


i i 



Examples of floating-point numbers: 

10 PRINT 2345678; .0000044 
>RUN 

2.34568E+06 4.40000E-06 



10 PRINT 23456789; .00000044 
>RUN 

2.34568E+07 4.40000E-07 

10 PRINT .00003943; .0000257895 
>RUN 

3.94300E-05 2.57895E-05 
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PRINT FUNCTIONS 



These print functions may be included in a PRINT statement print list. A comma after any print 
function is treated as a semicolon. 



TAB Function 

The form of the tabulation function is: 
TAB(integer expression) 

The print position is moved to the column specified by the integer expression. Print positions are 
numbered from 0 to 71. If the print position must be moved to the left because the integer expres- 
sion is less than the current position, nothing is done. If the expression is greater than 71, the print 
position is moved to the beginning of the next line. 



SPA Function 

The form of the spacing function is : 

SPA ( in teger expression ) 

Blanks are printed for the number of spaces indicated by the integer expression. Nothing occurs 
when the expression is zero or negative. If the number of spaces will not fit on the current line, or 
the expression exceeds 71, a carriage return and line feed is generated. 

The limit of 71 on TAB and SPA expressions does not apply to PRINT USING (see Section IX). 



LIN Function 

The form of the line skip function is: 
LIN(integer expression ) 

The terminal performs a carriage return and as many line feeds as are specified in the expression. 
If the value is negative, the absolute value of the expression is used for the number of line feeds; 
no carriage return is generated. Normally, a carriage return and one line feed is performed at the 
end of a PRINT statement unless there is a trailing comma or semicolon. 
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CTL Function 



The form of the carriage control function is: 

CTL(integer expression) 

All items preceding the CTL function in a PRINT statement are printed immediately, using the 
integer expression as the carriage control code. This function is effective only for the particular print 
statement in which it occurs and has no effect on any other statement. This function is useful when 
the output device is a line printer. The carriage control codes are listed below. 



Carriage Control Codes 



Decimal 
Code 


Carriage Action 


32 


Single-space 


43 


Carriage return, no line feed 


48 


Double-space 


49 


Page eject (form feed) 


64 


Post-spacing 


65 


Pre-spacing 


66 


Single-space, with auto page eject (60 
lines/pg) 


67 


Single-space, without auto page eject (66 
lines/pg) 


128+nn 


Space nn lines (no automatic page eject). 
nn=1 thru 63 (i.e., codes 129 thru 191). 


192 


Page eject (*ftc #1 ) 


193 


Skip to bottom of form (*ftc #2) 


194 


Single-spacing, with auto page eject (*ftc 

*3) 


195 


Single-space on next odd-numbered line, 
with auto page eject (*ftc #4) 


196 


Triple-space, with auto page eject (*ftc 

-=5) 


197 


Space 1/2 page, with auto page eject (*ftc 
«6) 


198 


Space 1/4 page, with auto page eject (*ftc 


199 


Space 1/6 page, with auto page eject (*ftc 
=8) 


256 


Post-spacing 


257 


Pre-spacing 


258 


Single-space, with auto page eject (60 
lines/pg) 


259 


Single-space, without auto page eject (66 
lines/pg) 

'Format Tape Channel number 



Examples of Print Functions 

The TAB, SPA, LIN and CTL functions are illustrated below: 
AUG 1978 2-37 



10 PRINT TABC8);* TITLE:PRI NT HEAD I NG" jSPAC 1 0) ; "SUMMARY REPORT"; 
20 PRINT LIN(3>r DETAIL LINES" 
>RUN 

TITLE: PRINT HEADING SUMMARY REPORT 



DETAIL LINES 



The LIN function can generally be used to provide double or triple spacing, to suppress spacing, 
or to provide a line feed. For instance, 

Double Space LIN(2) 
Suppress Spacing LIN(O) 
Line Feed only LlN(-integer expression) 



10 PRINT "ABC , *;LIN(-1);"DEF , '}LIN(2)!"GHI" 
>RUN 
ABC 

DEF 

GHI 

Some frequently used carriage control characters are: 

Double Space CTL(48) 
Page Eject CTL(49) 
Suppress Spacing CTL(43) 



The decimal numbers associated with the carriage control characters are used as the integer expres- 
sion in the CTL function. To illustrate: 



10 LET P=1,X=500 
20 PRINT CTL<49> ,"PAGE N0";P 
30 PRINT CTLC4S) ," DETAIL LINE" 
40 PRINT TAB(15),X,CTL(43)5 
50 PRINT TAB(10),"Xt" 
>RUN 



After ejecting to the top of a new page, the print items are output as: 



PAGE NO 1 



DETAIL LINE 

X= 500 
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In the following example, the CTL function causes a double space between "LINE 1" and "LINE 2", 
but has no effect on statement 20: 



: BASIC 

>HP32101B. 00 . 08 (4WD) BASIC (C) HEWLETT-PACKARD CO 1976 

>10 PRINT "LINE 1", CTL (48) , "LINE 2" 

>20 PRINT "LINE 3" 

>RUN 

LINE 1 

LINE 2 
LINE 3 

>EXIT 

END OF SUBSYSTEM 



The effect of the CTL function in the next example is immediate at it's location within the PRINT 
statement 200. It has no effect at the end of that statement where a normal linefeed and carriage 
control occurs. 



: BASIC 

>HP32101B .00.08 (4WD) BASIC (C) HEWLETT-PACKARD CO 1976 
>100 FOR 1=1 TO 2 

>200 PRINT "ABCD" ,CTL (130) , "EFGH" 

>300 NEXT I 

>RUN 

ABCD 

EFGH 
ABCD 

EFGH 

>EXIT 

END OF SUBSYSTEM 
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READ/DATA/RESTORE Statements 



Together, the READ, DATA, and RESTORE statements provide a means to input data to a 
BASIC/3000 program. The READ statement reads data specified in DATA statements into 
variables specified in the READ statement. RESTORE allows the same data to be read again 



Form 

READ item list 

The items in the item list are either variables or FOR loops. Items are separated by commas. 
A FOR loop has the form: 

(FOR statement, item list) 

where the item list contains variables or FOR loops separated by commas. 

DATA constant, constant,. . . 

The constants are either numeric or string. Constants in the DATA statement are assigned to 
variables in the READ statement according to their order: the first constant to the first variable, 
the second to the second and so forth. 

RESTORE 
RESTORE label 

The label identifies a DATA statement. 



Explanation 

When a READ statement is executed, each variable is assigned a new value from the constant list 
in a DATA statement. RESTORE allows the first constant to be assigned again when READ is 
next executed or, if a label is specified, the first constant in the specified DATA statement. 

More than one DATA statement can be specified. All the constants in the combined DATA state- 
ments comprise a data list. The list starts with the DATA statement having the lowest statement 
label and continues to the statement with the highest label. DATA statements can be anywhere 
in the program; they need not precede the READ statement, nor need they be consecutive. 
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If a variable is numeric, the next item in the data list must be numeric; if a variable is a string, the 
next item in the data list must be a string constant. It is possible to determine the type of the next 
item with the TYP function (see Section VIII). 

If the READ statement contains a FOR statement, the items following the FOR statement within 
parentheses are assigned values once for each time the FOR statement is executed. The FOR 
variable can be used in the item list, as can further FOR statements. 

A pointer is kept in the data list showing which constant is the next to be assigned to a variable. 
This pointer starts at the first DATA statement and is advanced consecutively through the data 
list as constants are assigned. The RESTORE statement can be used to access data constants in a 
non-serial manner by specifying a particular DATA statement to which the pointer is to be moved. 

When the RESTORE statement specifies a label, the pointer is moved to the first constant in the 
specified statement. If the statement is not a DATA statement, the pointer is moved to the first 
following DATA statement. When no label is specified, the pointer is restored to the first constant 
of the first DATA statement in the program. 



Examples 



The data in statement 10 is read in statement 20 and printed in statement 30: 



10 DATA 3,5,7 
20 READ A,B,C 
30 PRINT A,B,C 
>RUN 



Note the use of RESTORE in this example. It permits the second READ to read the same data 
into a second set of variables: 



5 DIM A$[3 ],B$(3 ) 
10 DATA 3,5,7 
20 READ A,B,C 
30 READ A$,B$ 
40 DATA "ABC","DEF" 
50 RESTORE 
60 READ D,E,F 

70 PRINT A$+B$,A;B;C; D;E; F 
>RUN 

ABCDEF 3 5 7 3 5 7 
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In the following examples, the data from three DATA statements is read into an 8-element array 
variable and a simple variable. The same data is then restored and read into three simple variables. 



10 DATA 3,5,7 

20 DATA 9,11,13 

30 DATA 15,17,19 

40 READ (FOR 1 = 1 TO 8,CtI]),D 

50 PRINT (FOR 1 = 1 TO 8,CU]),D 
>RUN 

3 5 7 9 11 

13 15 17 19 



10 DATA 3,5,7 

20 DATA 9,11,13 

30 DATA 15,17,19 

40 READ (FOR 1 = 1 TO 8,CtI]),D 

50 PRINT (FOR 1 = 1 TO 8,CtI]),D 

60 RESTORE 

70 READ A 

80 RESTORE 20 

90 READ B 
100 RESTORE 30 
110 READ C 
120 PRINT A,B,C 
>RUN 

3 5 7 9 U 

13 15 17 19 

3 9 15 
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INPUT Statement 



The INPUT statement allows the user to input data to his program from the terminal. INPUT has 
options that allow the user to save excess input and to print prompting strings before input. FOR 
loops may be included in the item list associated with INPUT. 



Form 

INPUT 

INPUT item list 

The items in the item list may be variables, string constants, or FOR loops. Items are separated by 
commas. FOR loops have the form: 

(FOR statement, item list) 

where the item list contains variables or FOR loops separated by commas. 

A colon (:) may precede or follow the INPUT item list. When a colon follows the list, excess input 
is saved in a buffer; when a colon precedes the list, input is assigned from the buffer before it is 
requested from the user at the terminal. 

An INPUT statement with no item list clears the input buffer; INPUT followed only by a colon 
fills the buffer. 



Explanation 

When an INPUT statement is executed, a question mark (?) is printed at the terminal and the 
program waits for the user to type his input. The input is in the form of constants separated by 
commas. If an insufficient number of constants is typed, the program responds with two question 
marks (??). This requests the user to input more constants. The type of data item, numeric or 
string, must match the type of variable it is destined for. 

Like the READ and PRINT statements, the INPUT statement can include any number of FOR 
loops. Each time a FOR statement is executed, the user inputs a constant to match the variables 
in the item list associated with the FOR statement. 



Numeric Constants. Numeric constants always begin with the first non-blank character preceding 
the comma or the end of the line. 
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String Constants. A string may be unquoted, in which case it begins with the first non-blank 
character and ends with the last non-blank character in the line. It may not contain quotation 
marks. A string may also be quoted, in which case it is delimited on each side by quotes and is 
followed either by a comma or the end of the line. 

The INPUT statement can be requested to print a string constant instead of a question mark by 
placing the string constant immediately before a variable. When the value for the variable is needed, 
the string is printed instead of the usual question mark. Any number of these request strings can be 
included in the variable list. 

Examples 

10 DIM C$t25] 
20 INPUT A,B,C$ 
30 X=A*B**2 
40 PRINT C$JX 
>RUN 

?2,5,"X=A TIMES B SQUARED, X=" 
X=A TIMES B SQUARED, X= 50 

10 INPUT "INPUT VALUE OF RADIUS ",R 
20 X=3.14*R**2 
30 PRINT "AREA OF X =",X 
>RUN 

INPUT VALUE OF RADIUS 25 
AREA OF X = 1962.5 

Note that a series of strings on one line separated by commas will be recognized as a single string 
constant unless each (except the last) is enclosed in quotes. See the following example: 

10 DIM A$[10] ,B$[10] ,C$[10] 
20 INPUT "THREE NAMES? " ,A$ , B$ , C$ 
30 PRINT A$ ,B$ ,C$ 
>RUN 

THREE NAMES? PAUL, PETE, DIX 
? ? "MARY " , "JOHN" 

PAUL , PETE , MARY JOHN 

>RUN 

THREE NAMES? PAUL 

? ?PETE 

??DIX 

PAUL PETE DIX 

>RUN 

THREE NAMES?"PAUL" , "PETE" , DIX 
PAUL PETE DIX 
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This example illustrates the various prompts for input: 



10 INPUT A, "NUMBER?", B,C 

20 PRINT A,B,C 
>RUN 
715 

NUMBER 763 .5 
??7 

15 63.5 7 
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If all input values are entered at one time, only the first prompt is used: 



10 INPUT A," NUMBER 7",B,C 
20 PRINT A,B,C 
>RUN 

715,63.5,7 
15 63.5 7 



The examples below illustrate FOR loops in the INPUT item list: 



10 INPUT (FOR 1=1 TO 5 STEP 2, All]) 
20 PRINT (FOR 1=1 TO 5 STEP 2, All]) 

>RUN 

71,3,5 

1 3 5 



10 INPUT N,(F0R K = l TO N, "WHAT'S NEXT ?" ,BI K 1 ) 

20 PRINT (FOR K = l TO N,B(K ]) 
>RUN 
73 

WHAT'S NEXT71 
WHAT'S NEXT 72 
WHAT'S NEXT 73 
1 2 3 



10 INPUT N,(F0R Sl=l TO N,(F0R 1=1 TO N,C[S1,IJ>> 
20 PRINT (FOR S 1 = 1 TO N,(F0R 1=1 TO N,CtSl,I]>) 

>RUN 

72 

771,2,3,4 

12 3 4 
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The example below illustrates the use of the colon (:) to save input in the buffer, and to assign 
input from the buffer. A colon following the input list saves the buffer; a colon preceding the 
input list assigns values from the buffer. 

In this example, four input values are placed in the buffer. However, following line 20 the buffer 
is cleared because there is no colon after E. Another value must be input for F. 



10 INPUT A,B: 
20 INPUT sE 
30 INPUT :F 
40 PRINT A ,B ,E , F 
>RUN 

?1 ,2,3,4 

??9 

1 2 3 9 



10 


INPUT 


A ,B: 


20 


INPUT 


: E: 


30 


INPUT 


»F 


40 


PRINT 


A ,B , 


>RUN 






?1,2 


,3,4 





12 3 4 



BUF FUNCTION 

The BUF function is used in conjunction with INPUT to determine the type of the next data item 
in the buffer. The form is: 



The parameter X has no meaning; any expression can replace X as the actual parameter. The results 
of executing BUF(X) are: 



By putting 



a colon after E as well as before it, the entire buffer is saved: 



BUF(X) 



Value of BUF(X) 



Next Item in Buffer 



1 



real 



2 



string 

no data in buffer 



4 



5 



integer 
long 

complex 



6 



7 



BUF(X) will not return the value 3. 
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Example 



10 INPUT : 

20 IF BUFC0)=4 THEN GOTO 190 

30 IF BUF(0>=5 THEN DO 

40 INPUT :A: 

50 PRINT "INTEGER A=";A 

60 GOTO 20 

70 DOEND 

80 IF BUF(0)rl THEN DO 

90 INPUT :Bs 

100 PRINT "REAL NO = ";B 

110 GOTO 20 

120 DOEND 

130 IF BUF(0)=2 THEN DO 

140 INPUT :C$: 

150 PRINT -STRING C=";C$ 

160 GOTO 20 

170 DOEND 

180 GOTO 20 

190 PRINT " END OF BUFFER" 



When run, the user can input any number of constants and they will be kept in the input buffer. 
This example assumes that no long or complex numbers will be input. 



>RUN 

?1 .3, "X", 5 76, 35. 2, 66. 6, 75, "A", "C* 

REAL NO = 1 .3 

STRING C=X 

INTEGER A= 5 76 

REAL NO : 35.2 

REAL NO = 66.6 

INTEGER A= 75 

STRING C=A 

STRING C=C 

END OF BUFFER 
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ENTER Statement 



The ENTER statement provides the program with more control over the input operation. The 
statement can limit the amount of time allowed to input data from the input device (e.g., terminal), 
provide the program with the actual input time, indicate whether the data is of the correct type, 
and return logical device number of the user's terminal. 



Form 

There are three forms of the ENTER statement: 
ENTER # terminal variable 

ENTER time limit expression, actual time variable, input variable 

ENTER # terminal variable, time limit expression, actual time variable, input variable 

The terminal variable after # is used to return the logical device number of the terminal; 
the time limit expression specifies the time allowed for input; the actual time variable 
is assigned the actual time used; and the input variable is assigned the value typed in. 



Explanation 

The first form sets the terminal variable equal to the user's terminal logical device number. 

The time limit expression specifies the length of time, in seconds, that the user is allowed to enter 
his input. The value must be in the range 1 to 255. If it is greater, 255 is used; if it is less, 1 is used. 

The actual time variable is set to the approximate time, in seconds, that the user takes to respond. 
If an improper input is typed, this value is negated. If the user fails to respond within the allotted 
time, this variable is set to -256. 

Only one value can be typed in for each ENTER statement and it is assigned to the input variable. 
A string should not be entered enclosed in quotes, but it may contain quotes. A string that is too 
long is truncated on the right. 

The ENTER statement differs from the INPUT statement in that a "?" is not printed on the user 
terminal and the system returns to the program if the user does not respond within a specified 
time limit (there is no time limit on INPUT). Also, the program does not generate a linefeed after 
the user types in a carriage return. 
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Examples 



10 DIM C$[25] 
20 ENTER #A 

30 PRINT "TERMINAL NO.=";A 

40 PRINT "YOU HAVE 1 MINUTE TO TYPE 25 CHARACTERS FOR C $' 
50 ENTER 60,B,C$ 

60 PRINT LINO ) ;"ACTUAL T1ME = ";B 
70 PRINT C$ 

80 PRINT LINO);" TYPE VALUE FOR C" 

90 ENTER #A,60,B,C 
100 PRINT LINO);"ACTUAL TIME = ";B 
110 PRINT C 
>RUN 

TERMINAL N0.= 17 

YOU HAVE 1 MINUTE TO TYPE 25 CHARACTERS FOR C$ 
EMBEDDED "QUOTES" 0 .K . 
ACTUAL TIME= 13.41 
EMBEDDED "QUOTES" O.K. 

TYPE VALUE FOR C 
25 . 7E - 8 

ACTUAL TIME: 6.62 
2.5 7000E-07 



The system enters the logical terminal number in the variable A as a result of line 20; A can then be 
referenced as in line 30. Since ENTER does not provide a prompt character, it is useful to print 
some form of prompt particularly because there is a time limit on the input. 

Note that the system does not provide a linefeed after input. It is therefore essential, if any output 
is to be printed after the input line, to provide a linefeed (use LIN function) within the PRINT 
statement. Without this linefeed, a subsequent output line overprints the input line. 

A common use of ENTER is to test students: 



10 PRINT "WHAT IS .25 TIMES 75?" 

20 ENTER 30,T,X 

30 IF X=. 25*75 THEN GOTO 70 

40 PRINT LINO), "SORRY, THE CORRECT ANSWER IS";. 25*75 
5 0 PRINT "TRY THE NEXT PROBLEM" 
60 GOTO 80 

70 PRINT LINO );"C0RRECT, YOU ANSWERED I N" ; T; "SECONDS " 
80 REM.. THE NEXT PROBLEM COULD START HERE 
>RUN 

WHAT IS .25 TIMES 75? 
18.75 

CORRECT, YOU ANSWERED IN 3.35 SECONDS 
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> BASIC 



When a BASIC/3000 program is waiting for input at the terminal as a result of an INPUT or 
ENTER statement, the user can interrupt input and request a new level of the BASIC/3000 
Interpreter by typing > BASIC. 

The computer returns a greater than sign (>) to prompt for other BASIC statements or commands. 

The previous program is suspended until the user types EXIT. EXIT in this case returns control to 
the INPUT or ENTER statement in the previous program. The computer types two question marks 
(??) to signal that it is waiting for further input. 



WHAT IS THE SQUARE ROOT OF 94? 
?>BASIC 
BASIC 01 .0 
>10 PRINT SQR (94) 
>RUN 
9.69536 

>EXIT 



??9. 69536 



The user responds to the INPUT prompt signal with > BASIC. He can then enter and run another 
program. EXIT returns control to the original program. He now enters the value he got as a result 
of the program run in > BASIC. 

When BASIC/3000 is entered with > BASIC, it cannot be entered again in the same way. That is, 
there is no nesting of this feature. 



Example 



10 

20 
>RUN 



PRINT " WHAT IS THE SQUARE ROOT OF 94?" 
INPUT I 
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Commands 



So far we have used a set of commands (LIST, RUN, SCRATCH) for simple program manipulation. 
Both LIST and RUN have parameters and functions other than were illustrated. The full capability 
of commands used to run a program, to edit a program, and to save a program in the library are 
described here. The commands are: 

RUN 

The Editing Commands: 
LIST 

SCRATCH 
DELETE 
RENUMBER 
LENGTH 

Library Commands: 
NAME 
SAVE 
GET 
APPEND 
PURGE 
CATALOG 

Commands in general are described in Section I. It should be recalled here that commands do not 
have labels; they are entered directly after the > prompt character and are executed immediately. 
Unlike statements, commands may not contain embedded blanks except between parameters. 
Some commands may be abbreviated. 

Certain conventions are used in the command description: 

UPPER-CASE Key words that must be spelled correctly 

lower-case Words defined by the user 

[ ] Enclose optional items 

| } Enclose required items 

I Separates alternatives, one of which must be chosen 

. . . Indicate the preceding item may be repeated 
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In the command descriptions, certain keywords are used: 



programname 



a BASIC/3000 program file 



filename 



a non-BASIC/3000 file 



asciifile 



an MPE/3000 ASCII file 



Key word parameters may be in any order. 



RUN 



The RUN command executes a BASIC/3000 program; the form is 

RUN [programname] (, label] [,OUT=asciifile] [,NOWARN] [,FREQ] [,NOECHO] [,MR] 

If programname is specified, the named program is retrieved from the user's library and made the 
current program. Any program previously in the user's work area is scratched. The current program 
then is executed. Any traces and breakpoints are deleted. (Traces and breakpoints are described in 
Section VII, Debugging.) 

If label is specified, execution starts at the first executable statement at or after the label number. 
The starting statement must not be within a function definition. If the label specifies a DEF state- 
ment, execution begins at the first executable statement following the function definition. 

OUT=asc»/i7e diverts all printed output and trace information to the specified ASCII file. 

NOWARN suppresses warning messages. 

FREQ causes a table to be printed following program execution that summarizes the usage of all 
statements in all programs that are part of the run. There may be more than one program in a run 
when segmentation is used (see Section X, Segmentation). 

NOECHO suppresses printing of program input when the input and list files are not on the same 
device. 

MR allows the execution of a program that locks multiple files, provided that the user has MR capa- 
bility (see Section VIII, Dynamic Locking). 
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Examples of RUN 



The program below is the current program : 



10 DATA 3,5,7 

20 DATA 9,11,13 

30 DATA 15,17,19 

40 READ (FOR Irl TO 8,CII1),D 

50 PRINT (FOR 1 = 1 TO 8,CII1),D 

60 RESTORE 

70 READ A 

80 RESTORE 20 

90 READ B 
100 RESTORE 30 
110 READ C 
120 PRINT A,B,C 



First the entire program is run, then it is run starting at line 60: 



>RUN 



3 

13 
3 



5 

15 
9 



7 

17 

15 



9 

19 



11 



>RUN,60 
3 



9 
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Next the same program is run with a frequency table: 



»RUN,FREQ 
3 
13 
3 



5 

15 
9 



7 

17 
15 



FREQUENCY TABLE 



TOTAL 


STATEMENTS 


= 12 






TOTAL 


TIME 


= .297 


SECONDS 








FREQUENCY 


EXECUTION TIME 


LABEL 


COUNT 


PCT 


AVE 


TOTAL 


PCT 


10 




8 


.001 


.001 


0 


20 




8 


.000 


.000 


0 


30 




8 


.001 


.001 


0 


40 




8 


.022 


.022 


7 


50 




8 


.160 


.160 


54 


60 




8 


.001 


.001 


0 


70 




8 


.002 


.002 


1 


80 




8 


.000 


.000 


0 


90 




8 


.002 


.002 


1 


100 




8 


.001 


.001 


0 


110 




8 


.002 


.002 


1 


120 




8 


.000 


.000 


0 


SYSTEM 


OVERHEAD 




.105 


35 
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Editing Commands 



The editing commands always affect the current program, that is, the program that is currently 
being entered at the terminal. 



LIST 

The LIST command lists all or part of the current program; the form is 

LIST [first [ - last] ] [, OUT=asciifile] [, RECSIZE=number] [,NONAME] 

where first and last specify the range of statements to be listed, and asciifile specifies the ASCII file 
to which the list is diverted. If RECSIZE is specified, number specifies the number of characters 
per record for the list file. If NONAME is specified, the program name is not listed; this is useful 
when listing programs to be read back with the XEQ command. The default parameters are the 
normal list file and a record size of 72 characters per record. If neither first nor last is specified, the 
entire program is listed. If only first is specified, just that statement is listed. 



Examples 



>LIST 

The entire current program is listed at the terminal. 



>LIST 1-100,OUT=FASTFILE,RECSIZE = 13 0 



Statements 1 through 100 of the current program are listed on the file FASTFILE with a record 
size of 130. 

Note that a listing can be stopped by pressing the CTRL Y key. The user is returned to BASIC 
control. 
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SCRATCH 

The SCRATCH command deletes the entire current program and its name; the form is 
SCRATCH | SCR 

SCRATCH also clears traces and breakpoints. (Traces and breakpoints are described in Section VII, 
Debugging). 

Example 
»SCR 

The current program is deleted, and a new current program can be entered in the user's work area. 
DELETE 

The DELETE command deletes one or more specified statements; the form is 

{DELETE I DEL \ first [ - last] [, first [ - last ] ] . . . 

where first and last are statement labels; the statements referenced by the parameters are deleted 
from the program. Each first-last pair specifies a range of statements which are to be deleted. If a 
first is given without a last, only the one statement is deleted. 

Example 

>DEL 45, 75,400-700 

Statements 45, 75, and all statements from 400 through 700 inclusive are deleted from the user's 
current program. 



2-55 



RENUMBER 

The RENUMBER command allows the user to renumber any of the statements in the current 
program; the form is 

{ RENUM | RENUMBER } [ newfirst [ , delta [ , oldfirst [ - oldlast ])]] 

oldfirst and oldlast specify the range of original statements to be renumbered (defaults are 
1 — 15999). If only oldfirst is specified, the default for oldlast is 15999. The first of these statements 
is assigned the number newfirst (default is 10) and each of the remainder is assigned a statement 
number delta greater than its predecessor (default for delta is 10). Any statement in the program 
which references a renumbered statement is changed as required for consistency. 

Examples 

»RE NUMBER 

The statements in the current program are renumbered in increments of 10 starting with statement 
number 10. 

>RENUM 5,5,1-890 

The old statement numbers 1 through 890 are renumbered starting with 5 and increasing by 5. 

LENGTH 

The LENGTH command reports the size of the current program; the form is 

LENGTH I LEN 
The length of the current program (in 16-bit words) is printed 

Example 

"LENGTH 

The length of the current program is printed. 
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Examples Using Editing Commands 

After the user enters text at a terminal, mistakes can be corrected by pressing the CNTL H (or H c ) 
key or the backspace key. 

»10 INPUGNT A,B,C,D,E 

>20 REM.. INPUT 5 VALUES 

>30 LET S = (A®\+B+C+D+E)?\/5 

>40 REM . .S =A VERAGE OF 5 INPUT VALUES 

>50 PRINT S 



LIST correctly lists the program: 



>LIST 

10 INPUT A,B,C,D,E 

20 REM.. INPUT 5 VALUES 

3 0 LET S = (A+B+C+EH-E) /5 

40 REM. .S=A VERAGE OF 5 INPUT VALUES 

50 PRINT S 



LENGTH gives the length in computer words: 



•LENGTH 
53 WORDS. 



The remark lines are deleted and the program is listed: 



>DEL£TE 20,40 

>LIST 

10 INPUT A,B,C,D,E 

30 LET S= (A+B+C+D+E) /5 

50 PRINT S 
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Next, the program is renumbered and listed again: 



>RENUMBER 

>LIST 

10 INPUT A,B,C,D,E 

20 LET S = (A+B+C+DfE) /5 

30 PRINT S 



The program is scratched. When LIST is now specified, there is no current program; the computer 
returns a ">" to prompt for further entries: 



>S CRATCH 
>LIST 
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Library Commands 



When a current program is complete, and if it is to be used again, it should be saved in the user's 
library. A copy of the current program identified by aname is kept in the library when the program 
is saved. The current program is not affected; it remains the current program until log off, or until 
it is scratched with the SCRATCH command. 

When a program is saved, it must be given a name either with the NAME or SAVE command. The 
program name is used to get, to append, or to purge a program in the user's group library. The 
name must be unique among names in a particular user's group library, but it may be duplicated 
in other groups. A catalog of the programs and files contained in the user's library may be requested 
with the CATALOG command. 



NAME 

The NAME command assigns a name to the current program; the form is 
NAME programname 

The programname specified is assigned to the current program. The programname can be any com- 
bination of eight alphabetic and numeric characters, beginning with an alphabetic character. 



Example 



>NAME PROGX 

The current program is assigned the name PROGX. 



SAVE 

The SAVE command stores a copy of the current program in the user's library; the form is 
SAVE [programname] [!] [,FASTJ [,RUNONLY] [,MR] 

If programname is specified, that name is given to the saved copy, but not to the current program. 
If programname is omitted, the name of the current program is assumed; in this case, the program 
must have been named before it can be saved. If there is no file with the same name in the user's 
library, a new file is created and a copy of the current program is stored in it. If a file with the same 
name already exists in the library, the SAVE command is rejected unless the exclamation mark is 
specified, in which case the original file is purged and a new file created. 
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FAST causes the program to be saved in pseudo-compiled form so that it can be RUN more quickly. 
It also ensures that the program is valid (matching FOR-NEXT pairs, etc.). 



A program saved for RUNONLY is assumed to be free of errors and ready for execution. When a 
RUNONLY program is brought into the user's work area with GET, certain commands are illegal 
until a SCRATCH or another GET. For instance, a RUNONLY program cannot be listed or modified. 
The only commands legal when a RUNONLY program is current are: 

ABORT 

CATALOG 

CREATE 

DUMP 

EXIT 

GET 

KEY 

PURGE 

RESUME or GO 
RUN 

SCRATCH 

SPOOL 

SYSTEM 

TAPE 

XEQ 



MR saves a program with MR status, if the user has MR capability (see Section VIII, Dynamic 
Locking). Otherwise, the following message appears on the terminal: 

COMMAND EXCEEDS USER CAPABILITY 



Examples 

>SAVE PROGX 

The name PROGX is assigned to the copy of the current program that is saved in the user's library. 
>NAME PROGX 
>SAVE 



The current program is given the name PROGX, and then a copy is saved in the user's library. 
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>SAVE PROGX! ,FAST,RUNONLY 



A copy of the current program is assigned the name PROGX and stored in the user's library; any 
other program with the name PROGX is purged from the library. The program is saved in pseudo- 
compiled form and, if retrieved as the current program, only commands legal with RUNONLY can 
be used. 



GET 

The GET command loads a specified BASIC/3000 program into the user's working space; the 
form is 

GET programname 

where programname is the name of a program to replace the current program. GET deletes all 
traces and breakpoints. 



Example 

>GET SEARCH 



SEARCH is a program saved in the user's library. It is now also available in the user's work area 
replacing any previous program in that area. 



PURGE 

The PURGE command removes a file or program from the user's library; the form is 

PURGE {basicfile \ programname \ filename} 

The file or program specified is deleted from the user's library ; it is not recoverable once it has 
been purged. 

Example 

>PURGE PROGX 

PROGX is a file or program in the user's library. It is no longer available to the user and its name 
may be assigned to another file or program. 



2-61 



APPEND 



The APPEND command appends a specified program to the user's current program; the form is 
APPEND programname 

The program specified is appended to the end of the current program. The last sequence number 
of the current program must be smaller than the first sequence number of the appended program. 
Programs which have been saved in pseudo-compiled form (see SAVE command) and RUNONLY 
programs cannot be appended. 



>APPEND PROGX 

PROGX is a program saved in the user's library. It is appended to the program currently in the 
user's work area. 



The CATALOG command provides a list of programs or files specified by the user. The list includes 
the program or file name, the type, the number of logical records, and if desired, the record width. 



{ CAT | CATALOG} [fileset] [,ALL] [,RECSIZE] [,OUT=asciifile] [, ST ART= filename] 



Example 



CATALOG 



The form is: 



where: 



fileset 



one or more files or programs referenced by file name, 
group name, and/or account name. When fileset is omitted, 
all the files in the user's log-on group are listed. (See the 
next page for a full description of fileset.) 



ALL 



all ASCII and Binary files are included in the list; if ALL is 
omitted, only BASIC files and programs are listed. 



RECSIZE 



requests the record width for each file. If RECSIZE is 
omitted, record width is not listed. 
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OUT=asciifile 



the file listing is diverted to the specified ASCII file; if OUT 
is omitted, the list is on the list device (e.g., the terminal). 



START=filename the listing starts with the specified file name. 

For each file listed, the file name, the type (BF for BASIC file, SP for saved program, FP for fast 
saved program, A for ASCII, B for Binary) and the number of records in the file are listed. The 
record width is listed if RECSIZE is specified; the width is in bytes for ASCII files, in words 
otherwise. The listing is printed in as many columns as will fit across the width of the list device. 

Output can be stopped with CTRL Y, as with the LIST command. 

The fileset parameter has three fields that allow the user to request descriptions of one file alone, 
or various sets of files. The filename field indicates a specific file or all files within the units 
designated by the other fields. The group field denotes the group to which the files belong. The 
account field denotes the account to which the group belongs, or it may specify all accounts in 
the system. To specify all files, groups, or accounts, the user enters the character @ in the appro- 
priate field. The three fields are separated by periods. 

The table below shows the possible combination of entries in fileset: 



File Field 


Group Field 


Account Field 


Entry Example 


Meaning 


filename 


groupname 


accountname 


FILE.GROUP.ACCT 


The file named, in the 
group and account 
designated. 


filename 


groupname 




FILE.GROUP 


The file named, in the 
group designated under 
the log-on account. 


filename 






FILE 


The file name, under 
the log-on group. 


@ 


groupname 


accountname 


@.GROUP.ACCT 


All files in the group 
named, under the 
designated account. 


@ 


groupname 




@.GROUP 


All files in the group 
named, under the 
log-on account. 


@ 






@ 


All files in the log-on 
group. This is the 
default case. 


@ 


@ 


accountname 


@.@.ACCT 


All files in all groups 
under the account named. 


@ 


@ 




@.@ 


All files in all groups under 
the log-on account. 


@ 


@ 


@ 


@.@.@ 


All files in the system. 



@ means all 
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Examples Using Library Commands 

A program is input, named, and saved in the user's library. It is then scratched as the current program: 



>100 INPUT A,B,C,D,E 

>120 LET S = (A+B+C+D+E)/5 

>130 PRINT S 

>NAME AVERAGE 

>SAVE 

>SCRATCH 



A second program is entered, named, and saved. The first program is then appended to this program 
to make a third program. It too is named and saved: 

>10 INPUT R 
>20 P=3.14 
>3 0 A=P*R**2 
>40 PRINT A 
>NAME AREA 
>SAVE 

>APPEND AVERAGE 
>SAVE CALC 



Any of these programs may now be brought back as the current program with GET. To illustrate, 
each is retrieved and then listed : 



>GET AVERAGE 
>LIST 
AVERAGE 
100 INPUT A,B,C,D,E 
120 LET S = <A+B+C+D+E> /5 
130 PRINT S 
>GET AREA 
>LIST 
AREA 

10 INPUT R 
20 P=3.14 
30 A=P*R**2 
40 PRINT A 
>GET CALC 
>LIST 
CALC 

10 INPUT R 
20 P=3.14 
30 A=P*R**2 
40 PRINT A 
100 INPUT A,B,C,D,E 
120 LET S = <A+B+C+ W-E)/5 
130 PRINT S 
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To determine whether a particular program is in the user's library, he can type CATALOG followed 
by the program name. If there are not too many files in the current log-on group, he can simply 
type CATALOG to get a list of all the files currently saved. 

In this example, the user requests a catalog of the program CALC. He then types RUN CALC and 
the program will be retrieved from the library and run : 

>CATALOG CALC 

ACCOUNT = LANG GROUP=BASIC 

NAME RECORDS NAME RECORDS NAME RECORDS 

CALC SP 2 

> 



>RUN CALC 

CALC 

760 

1 1304 
734,56,43,61 ,54,73 

49.6 

If there is no further need for the saved programs, each may be purged as follows: 

>PURGE CALC 
>PURGE AREA 
>PURGE AVERAGE 



The program CALC remains the current program as a result of the RUN CALC command until it is 
scratched or is replaced by another program in the user's library, or until the user exits from 
BASIC. 

Saved programs remain in the library after log-off and can only be removed with the PURGE 
command. 
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SECTION III 
Arrays 



An array (or matrix) is a set of variables which is known by one name. The individual elements of 
an array are specified by the addition of a subscript to the array name: for example, M(7) is the 
seventh element of array M. 

Arrays have either one or two dimensions. A one-dimeusional array consists of a single column of 
many rows. The elements are specified by a single subscript, indicating the row desired. Rows and 
columns are numbered starting with 1. A two-dimensional array consists of a specified number of 
rows and a specified number of columns organized into a table. For example, an array M of five 
rows and three columns can be represented as follows: 



Columns 
1 2 3 



M(1,1) 


M(1,2) 


M(1,3) 


M(2,1) 


M(2,2) 


M(2,3) 


M(3,1) 


M(3,2) 


M(3,3) 


M(4,1) 


M(4,2) 


M(4,3) 


M(5,1) 


M(5,2) 


M(5,3) 



Each element of the array is specified by a pair of subscripts separated by commas; the first indicates 
the row and the second the column. 

Every array in a BASIC/3000 program is defined in one of three ways: 

• Through a DIM statement that specifies the array name, and the number of rows and columns. 

• Through a type declaration that specifies the same information as DIM and also declares the 
array to contain a particular data type. 

• Through usage— numeric arrays that are used but are not explicitly defined in a DIM or type 
statement have 10 rows if one-dimensional or 10 rows and 10 columns if two-dimensional. 
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The physical size of an array is the total number of elements originally allocated to it; the logical 
size is the current number of rows times the current number of columns. The physical size of an 
array cannot be changed during execution, but the logical size (that is, the number of rows and 
columns) can be changed with a REDIM statement so long as the physical size is not exceeded. 

BASIC/3000 permits arrays of all numeric data types as well as one-dimensional string arrays. Re- 
marks in this section refer to numeric arrays, unless otherwise noted. String arrays are described in 
section V. 

This section describes DIM and REDIM as used for numeric arrays. In addition it describes special 
statements used for computation and manipulation of one- and two-dimensional arrays. All of these 
statements begin with the word MAT. 

Whenever an array is referenced within a function or a call to an external procedure, it must be sub- 
scripted by * if one-dimensional, or *,* if two-dimensional. For example, 

DIM A(10), B(4,10) 

CALL SETVALUE (X,A(*),B(*,*) ) 
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DIM Statement 



The DIM statement is used to reserve storage for arrays and to set upper bounds on the number of 
elements in arrays. DIM statements may also be used with strings (see Section V). 

Form 

DIM variable(integer),variable(integer), . . . 

where the variable is the array name, and the integer specifies the number of rows in a one- 
dimensional array. 

DIM variable(integer,integer),variable(integer,integer), . . . 

where the variable names a two-dimensional array, and the first integer specifies the number of rows 
in the array, the second integer the number of columns. 



REDIM Statement 



The REDIM statement is used to vary the number of rows and columns in arrays. REDIM is also 
used with strings (see Section V). 



Form 

REDIM variable(integer expression), variable{integer expression), . . . 

REDIM variable(integer expressionjnteger expression), 

variable(integer expressionjnteger expression), . . . 

REDIM is like DIM except that the rows and columns can be specified with integer expressions. 
The value of the expression must be positive. 

When more than one array is specified in a REDIM expression, they are separated by commas. 



Explanation 

The variables in a REDIM statement must have been previously dimensioned either explicitly with 
a DIM or type statement, or implicitly through use. When using REDIM to redimension an array, 
the number of rows and columns can be changed as desired provided these two conditions are met: 

• The number of dimensions must not be changed. 

• The total number of elements (rows times columns) must not be increased beyond the 
physical size (original dimensions) of the array. 

Any data elements whose subscripts are included in both the old and new dimensions retain their 
old values in the newly dimensioned array. New elements have undefined values. 

Arrays may be implicitly redimensioned in MAT READ, MAT INPUT, and the MAT Initialization 
and MAT Operation statements. 



Examples 



100 DIM A[20],Bt5,5] 
120 FOR X = l TO 20 
130 A[X1=0 
140 NEXT X 
150 Btl, 41=100 

160 PRINT (FOR A = l TO 20,A[A ]) ,Bt 1 ,4] 

170 REDIM AU01,B[2,6] 

180 PRINT (FOR A=l TO 10.A [ A ] ) ,B[ 1 , 4 ] 
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Each element in A is set to zero, then one element in B is set to 100, and the results are printed. 
After redimensioning, the results are again printed. Note that B(4,l) is not affected by REDIM 
since it is still within the bounds of the redimensioned array. 



0 
0 
0 
0 



0 
0 
0 
0 



0 
0 
0 
0 



0 
0 
0 
0 



0 
0 
0 
0 



0 
0 



0 
0 



0 
0 



0 
0 



2 
0 



100 



In the example below, array C is dimensioned by use to have 10 rows and 10 columns, and array C5 
to have 10 rows. An element in each array is assigned a value which, when the arrays are redimen- 
sioned, are out of the bounds of the array. Other elements within the new bounds are then given 
values and printed. 



10 Ct4, 1 1=99 

20 C5tl0] = 0 

30 REM BOTH C AND C5 ARE DIMENSIONED BY USE 

40 REM C WITH 10 ROWS AND 13 COLUMNS 

50 REM C5 WITH 10 ROWS 

60 PRINT C14,1] 

70 PRINT C5t 10] 

80 REDIM C[2, 12],C5[ 5] 

90 REM C(4,l) AND C5(10) ARE NO LONGER DEFINED 

130 Ct2,U=70 

110 C5t 5 ] = 100 

120 PRINT LIN(1),C12, 1 ],C5l 5] 



>RUN 
99 
0 



70 



100 
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Storing Data in Arrays 



There are several methods of assigning values to arrays. Individual elements can be assigned using 
the assignment statement: 

10 LET AI5}=26 
20 BI1,9] = N*4.5 



In addition, individual elements can appear in INPUT and READ statements: 

10 INPUT All ],AI2 ],AI3 ] 
20 READ Btl21 



If embedded FOR loops are used, entire arrays can be filled element by element: 
10 INPUT (FOR N=l TO 5,A[NJ> 

20 READ (FOR N=l TO 5, (FOR M= 1 TO 5, BIN, WD) 



To simplify the use of arrays, the MAT INPUT and MAT READ statements are provided to fill 
entire arrays. 



MAT READ/INPUT STATEMENTS 

The MAT READ statement assigns values from DATA statements to entire arrays, row by row. If 
dimensions are specified, the array is given new logical dimensions. The MAT INPUT statement is 
identical to MAT READ except that the values are taken from the input device (e.g., terminal) as 
in an INPUT statement. 



Form 

MA T READ array, array, . . . 
MAT INPUT array, array, . . . 

each array is either an array name (A,B7, etc.) or an array name followed by new dimensions 
(A(5), B(5,J)). The dimensions can be expressions. The rules for assigning new dimensions are given 
in the description of REDIM. 
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Explanation 

If an array is dimensioned in MAT INPUT or MAT READ, the new logical size (i.e., the total 
number of elements) must not be more than were originally allocated to the array, nor may the 
number of dimensions be altered. 

If the array is a string array, only the number of elements can be changed by MAT INPUT or MAT 
READ. The size of the elements in the string cannot be changed. (See Section V for a description 
of strings and string arrays.) 

None of the special extensions available with a simple INPUT, such as saving excess input, are 
allowed with MAT INPUT. 



Examples 

10 DIM Af9 ), CI 10,41 

20 MAT READ A 

25 RESTORE 

30 MAT READ C(8,41 

40 PR I NT All ),A[ 5],A[9 ] 

50 PRINT CI 1 , 1],C[5,2],C[8,4] 

1000 DATA 1,2,3,4,5,6,7,8,9,10 

1010 DATA 10,9,8,7,6,5,4,3,2,1 

1030 DATA 30,31 ,32,33,34,35,36,37,38,39 

1040 DATA 40,41,42,43,44,45,46,47,48,49 
>RUN 

1 5 9 

1 3 41 



Three elements from each array are printed. Array C is redimensioned by MAT READ in line 30. 
Note that the RESTORE and DATA statements have the same functions with MAT READ as they 
do with READ. 

In the next example, the MAT INPUT statement expects input from the user. Both arrays A and C 
are printed in their entirety using FOR loops as print itsms. 



10 DIM A19 ),CI2,3 ] 

20 MAT INPUT A,C 

30 PRINT (FOR N=l TO 9,A( N]> 

40 PRINT (FOR N=l TO 2, (FOR M= 1 TO 3,CIN,MJ)) 
>RUN 

79,8,7,6,5,4,3,2,1 
7722,33,44,55,66,77 

9 8 7 6 5 

4 3 2 1 

22 33 44 55 66 

77 
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Printing Data from Arrays 



The mechanisms for printing data from arrays are parallel to those used for filling arrays. Individual 
elements can be printed using PRINT: 

100 PRINT All ],A(2 ],A[3 ] 

If embedded FOR loops are used, entire arrays can be printed element by element: 
100 PRINT (FOR N=l TO 15.AIN1) 

200 PRINT (FOR N=l TO 15, (FOR M= 1 TO 5,BtN,M])) 



To simplify the use of arrays, the MAT PRINT statement is provided to print entire arrays. MAT 
PRINT is also available for printing string arrays (see Section V) and for printing arrays to files (see 
Section VIII). In addition, the length of the print line can be changed by using the MARGIN state- 
ment (Section VIII) together with the MAT PRINT or MAT PRINT # statements. To print arrays 
according to a customized format, see the MAT PRINT USING and MAT PRINT # USING state- 
ments described in Section IX. 

MAT PRINT STATEMENT 

The MAT PRINT statement allows the printing of one or more complete arrays in a single statement. 
The elements are printed row by row and can be spaced out in fields or packed together, as in the 
PRINT statement (Section II). 

Form 

The form of a MAT PRINT statement is: 

MAT PRINT mat print item, mat print item, . . . 

A mat print item is either an array name or special function (TAB,LIN,CTL, and SPA); items are 
separated by a comma or semicolon and the list is optionally terminated by a comma or semicolon. 
FOR loops are not allowed in MAT PRINT. 



Explanation 

Each row of each array is printed separately, with double spacing between rows. If a comma follows 
the array, each element starts in one of the consecutive divisions of the line (see "PRINT Statement," 
Section II). If a semicolon follows the array, the elements are printed packed together, as if each 
element were followed by a semicolon. If nothing follows the last array, a comma is assumed. All 
formatting is done according to the specifications under PRINT statement. 

An undefined array element causes the program to terminate. A one-dimensional array is printed as 
a single row. 
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Examples 



10 DIM Atl0],B[5,5],Cl2,2) 

20 MAT READ A,B[3,5],C 

30 MAT PRINT A 

40 PRINT 

50 MAT PRINT B ,LI N( 1 ) , C,LI N( 1 ) 

60 MAT PRINT A;LIN(2),B; 

1000 DATA 2.5,46.7,75,0,50.1 ,0,0,0, 19.8,0 

1010 DATA 1,2,3,4,5,6,7,8,9,10 

1020 DATA 11,12,13,14,15,16,17,18,19,20 
>RUN 

2.5 46.7 75 0 50.1 

0 0 0 19.8 0 

1 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 

16 17 
18 19 



50.1 



2.5 
19.8 




46.7 

0 




75 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


1 1 


12 


13 


14 


15 



Note the effect of the semicolons following A and B in the MAT PRINT statement, line 60, on the 
printed output. MAT READ in line 20 redimensions array B; redimensioning of arrays is not per- 
mitted in a MAT PRINT statement. 
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Initializing Arrays 



Three special functions (ZER, CON, IDN) provide the means to initialize numeric arrays with 
certain values, and optionally to redimension the arrays. 

Form 

The forms of MAT initialize statements are: 

MAT numeric array = function 

MAT numeric array=function(dimension) 

The allowable functions are ZER, CON, and IDN. 

The (dimension) part is optional and consists of one or two integer expressions separated by a 
comma. It changes the logical size of the array. 

Explanation 

ZER sets all elements of the array to zero. 
CON sets all elements of the array to one. 

IDN assigns an identity array to the array specified. The identity array is all zeroes, except the 
major diagonal which is all ones. The major diagonal starts in the upper left corner. If the array is 
not square, ones are extended along the diagonal as far as possible. 

If an array is redimensioned by ZER, CON or IDN, the new size cannot have more elements than 
the original size, nor can the number of dimensions be altered. 



Examples 

10 DIM A[5,5] 
20 MAT ArZER 
30 MAT PRINT A 
>RUN 



0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


IS 


0 


0 
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Function ZER sets each element in array A to zero. 



10 DIM At 4,4] 
20 MAT A=C0N<3,4) 
30 MAT PRINT A 
>RUN 

1111 
1111 
1111 



MAT A=CON(3,4) redimensions array A to have 3 rows and 4 columns, and sets each element in 
the newly dimensioned array to 1. 

10 DIM A15,5] 

20 MAT A=IDN(4,4) 

3 0 MAT PRINT A 
>RUN 



10 0 0 

0 10 0 

0 0 10 

0 0 0 1 



IDN(4,4) changes the dimensions of A to 4 rows by 4 columns and sets the major diagonal to 1, the 
remaining elements to zero. If the array is not square, the extra elements are set to zero: 

10 DIM A[5,5] 

20 MAT A=IDN(5,3) 

30 MAT PRINT A 
>RUN 



1 


0 


0 


0 


1 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 
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Array Operations 



This group of six statements provides functions which operate on one or more entire arrays: 

MAT Copy statement 
MAT Add /Subtract statement 
MAT Multiply statement 
MAT Inverse statement 
MAT Transpose statement 
MAT Scalar Multiply statement 

The arrays named in each statement all must be the same numeric type (see Section IV, Variable 
Types). 

ARRAY COPYING 

The MAT Copy statement copies one array into another. The form is 

MAT numeric array=numeric array 

The array on the right is copied into the array on the left. The destination array must have at least 
as many elements as the source and the same number of dimensions. It is redimensioned to have 
the same number of rows and columns as the source. 



10 DIM Alt2,3], B2[3,21 

20 MAT READ B2 

3 0 MAT A1=B2 

40 MAT PRINT Al 

1000 DATA 2.5,46.7,75,0,50.1,0,0,0,19.8,0 



Examples 



>RUN 
2.5 



46.7 



75 



0 



50.1 



0 
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ARRAY ADDITION/SUBTRACTION 



The MAT Add/Subtract statement performs array addition or subtraction (element by element) 
upon arrays of identical logical size and assigns the result to another array. The form is 

MAT numeric array=numeric array +numeric array 
MAT numeric array =numeric array - numeric array 

The resulting array is assigned to the array on the left, which is redimensioned as in MAT copy. Any 
or all of these arrays may be the same array. 



Examples 



10 DIM BI2,2 1,A112,2],A2[2,2] 

20 MAT READ Al ,A2 

3 0 MAT 8=A1+A2 

40 MAT PRINT A 1 ,LI N (2> ,A2, LI N (2 ) , B 

1010 DATA 1,2,3,4,5,6,7,8,9,10 

>RUN 

1 2 
3 4 



5 6 
7 8 

6 8 
10 12 



The values in arrays Al and A2 are added to produce the values printed for array B. Using the same 
data, Al is subtracted from A2 to produce the following results in B: 



10 


DIM Bt2,2),Al[2,2],A2[2 


,2] 


20 


MAT READ AT ,A2 




30 


MAT B=A1-A2 




40 


MAT PRINT B 




1010 


DATA 1,2,3,4,5,6,7,8,9, 


10 


>RUN 






-4 


-4 




-4 


-4 
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ARRAY MULTIPLICATION 



The MAT Multiply statement performs an array multiplication on an array of dimension m by n 
and an array of dimension n by p; that is, the number of columns in the first array must equal the 
number of rows in the second. The result, a new array of dimension m by p, is assigned to a third 
array. The form is 

MAT numeric array = numeric array * numeric array 

Each row of the array to the left of * is multiplied by each column of the array on the right to pro- 
duce the new element. The resulting array is assigned to the array to the left of the assignment 
operator. This array is redimensioned to dimension m by p as in the MAT Copy statement. Any or 
all of these arrays may be the same array. 



Examples 



10 DIM Al[2,3],A2(3,2],Bt2,2] 

20 MAT READ Al ,A2 

30 MAT B=A1*A2 

40 MAT PRINT A 1 ; LI N ( 1 ) , A2; LI N ( 1 ) , B; 

100 DATA 1,2,3,4,5,6 

200 DATA 4,5,6,7,8,9 
>RUN 

1 2 3 | 

> array Al 

4 5 6 



4 

6 
8 



5 
7 

9 



array A2 



40 46 ) 

\ array B = A1*A2 

94 109 J 



The method for performing a matrix multiplication is to multiply each element of the first row of 
array Al by the corresponding element of the first column of A2 and to add the products. The 
result is the element B(l,l). Then each element in the first row of Al is multiplied by the corres- 
ponding element in the second column of A2 and these are added to produce B(l,2). B(2,l) is the 
sum of the products resulting from the multiplication of row 2 of Al and column 1 of A2; 
B(2,2) is the sum of the products of row 2 of Al and column 2 of A2. To illustrate: 

1X4 (4) + 2X6 (12) + 3X8 (24) = 40 1X5 (5) + 2X7 (14) + 3X9 (27) = 46 

4X4 (16) + 5X6 (30) + 6X8 (48) = 94 4X5 (20) + 5X7 (35) + 6X9 (54) = 109 
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A second example multiplies the square array C by itself. In this case, the number of columns 
always equals the number of rows. 



10 DIM CI3,3] 

20 MAT INPUT C 

30 MAT PRINT C; LI N( 1 ) 

40 MAT C=C*C 

50 MAT PRINT C; 
>RUN 

72,4,6,8,1,3,5,7,9 

2 4 6 

8 1 3 

5 7 9 



66 


54 


78 


39 


54 


78 


1 1 1 


90 


132 



To achieve the result MAT C=C*C; 

C(l,l) = 2X2 (4) + 4X8 (32) + 6X5 (30) = 66 
C(l,2) = 2X4 (8) + 4X1 (4) + 6X7 (42) = 54 
C(l,3) = 2X6 (12) + 4X3 (12) + 6X9 (54) = 78 
C(2,l) = 8X2 (16) + 1X8 (8) + 3X5 (15) = 39 
C(2,2) = 8X4 (32) + 1X1 (1) + 3X7 (21) = 54 
C(2,3) = 8X6 (48) + 1X3 (3) + 3X9 (27) = 78 
C(3,l) = 5X2 (10) + 7X8 (56) + 9X5 (45) = 111 
C(3,2) 5X4 (20) + 7X1 (7) + 9X7 (63) = 90 
C(3,3) 5X6 (30) + 7X3 (21) + 9X9 (81) = 132 
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This next example multiplies a two-dimensional array with three rows and two columns by a one 
dimensional array with two rows. The result is a one-dimensional array with three rows. 



10 DIM A[3 ,2 ],B[2 ], CIS ) 

20 MAT READ A 

30 MAT READ B 

40 MAT C=A*B 

50 DATA 1 ,2,3,4,5,6, 1 ,2 

60 MAT PRINT A ; LI N ( 1 ) , B; LI N ( 1 ) , C; 



>RUN 
1 



5 11 17 

To achieve the result MAT C=A*B: 

C(l)= 1X1 (1) + 2X2 (4) = 5 
C(2)=3X1(3) + 4X2(8) = 11 
C(3)=5X1(5) + 6X2(12)=17 



ARRAY INVERSION 

The MAT Inverse statement assigns the inverse of a square array (i.e., number of rows equals 
number of columns) to another array. The inverse of an array is the array which, when multiplied 
by the original array, results in the identity array. The form is 

MAT numeric array = INV (numeric array) 

The arrays must not have been declared type integer (see Section IV). The array to the left of the 
assignment operator is redimensioned as in MAT Copy. The two arrays may be the same. 
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Example 



10 DIM AU0,3 ],Bt 5,5] 

20 MAT INPUT B 

30 MAT A=INV(B) 

40 MAT PRINT B,LIN(2),A 
>RUN 

?1 ,0,0,0,0,2,1 ,0,0,0,3,2, 1, 0,0, 4,3 ,2, 1, 0,5,4, 3 , 2, 1 

1 0 0 0 0 

2 10 0 0 

3 2 10 0 

4 3 2 1 0 

5 4 3 2 1 



1 0 0 0 0 

• 21000 
1-2 1 0 0 

0 1-210 
0 0 1-21 



25 values are input to the square array B, then using INV, array A is set to the inverse of B. 
Array A is redimensioned to the same dimensions as B. 
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ARRAY TRANSPOSITION 

The MAT Transpose statement assigns the transposition of an n by m array to an m by n array. 
Transposition switches rows and columns. The form is 

MAT numeric array = TRN {numeric array) 

The array to the left is redimensioned as in the MAT Copy statement. The two arrays may be the 
same. 



Example 

10 DIM A[5,3],BI3,5] 

20 MAT INPUT B 

30 MAT ArTRNCB) 

40 MAT PRINT B,LIN(2),A 
>RUN 

?1, 2, 3, 4, 5 ,6,7,8,9,10,11,12,13,14,15 



I 2 3 4 5 

6 7 8 9 10 

II 12 13 14 15 

1 6 11 

2 7 12 

3 8 13 

4 9 14 

5 10 15 



Array A is the result of transposing array B with the TRN function. The columns in B are the 
rows in A; the rows in B are the columns in A. 
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ARRAY SCALAR MULTIPLICATION 

The MAT Scalar Multiply statement multiplies all of the elements of an array by a specified value 
and assigns the result to another array. The form is 

MAT numeric array = {numeric expression) * numeric array 

The array to the left is redimensioned as in the MAT Copy statement. The two arrays may be the 
same. 



Example 

10 N=5 

20 MAT INPUT B 
30 PRINT 

40 MAT A1=(N*2)*B 
50 MAT PRINT Al; 
60 DIM Al[3,4] 
70 DIM B[2,6) 
>RUN 

?1 ,2,3,4,5,6,7,8,9, 10, 1 1 , 12 

10 20 30 40 50 60 
70 80 90 100 110 120 



Scalar multiplication simply multiplies each element of the array by the specified numeric expres- 
sion, in this case N*2 or 10 since N=5. Each element of the resulting array Al is 10 times the 
corresponding element in B. The dimensions of Al are copied from B. The two arrays must be the 
same numeric type; the numeric expression may be a different type. 

The numeric expression, if a different type, is converted to the type of the arrays before multipli- 
cation is performed. The conversion may affect the result if, for instance, the scalar expression is 
type real and the arrays are type integer. Consider the following: 

MAT A = (2.5)*B, where A and B are integers, is equivalent to MAT A = (3)*B. 
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Array Functions 



Two functions which can be used in expressions return information about arrays: ROW and COL. 



ROW Function 

The ROW function has the form 
ROW (array) 

and returns the number of rows in the array (a one-dimensional array consists of one column, 
many rows). 



COL Function 

The COL function has the form 
COL (array) 

and returns the number of columns in the array (returns 1 if the array is one-dimensional). 



Examples 

10 READ M, N 

20 MAT READ A[M,N] 

30 PRINT (FOR 1=1 TO R0W(A),(F0R J= 1 TO COL (A ) , A[ I , J ] ) ) 

40 DATA 3,5,1,2,3,4,5,6,7,3,9,10,11,12,13,14,15 
>RUN 

I 2 3 4 5 

6 7 8 9 10 

II 12 13 14 15 



The dimensions of array A are read into the variables M and N. The functions ROW(A) and COL(A) 
are used in the FOR loop to determine the print bounds for printing the array. 
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SECTION IV 
Variable Types 



In addition to the floating-point real numbers used so far in this manual, BASIC/3000 allows three 
additional representations of data: integer, long real, and complex. Including real, these four num- 
ber types apply to variables, arrays, constants, expressions, assignments, functions, input and output. 
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Type Statements 



The type statements allocate space for variables and arrays and assign them a specific data type. Any 
particular variable or array can appear only in one type statement or DIM statement. 



Form 

The form of the type statement is 
type typespec list 

where type is either INTEGER, REAL, LONG, or COMPLEX. The typespec list includes variables 
and arrays to be assigned the data type of type. Arrays are defined in the same form as in the DIM 
statement (Section III). 



Explanation 

A simple variable or array which does not appear in a type statement is automatically type REAL. 
The explicit typing of variables in a REAL statement is, therefore, redundant, except within a func- 
tion body, where all local variables must be declared in order to distinguish them from variables of 
the same name outside the function. Real numbers are represented as 32-bit quantities consisting 
of a sign, exponent, and fraction. The range of real numbers is ± (10"^ ^ ,10^ 7 ) with approximately 
6 to 7 digits of precision. 

Variables which appear in an INTEGER statement hold integers. The range of integers is -32767 to 
32767. 

Variables which appear in a LONG statement hold long numbers. Long representation is a 64-bit 
quantity with sign, exponent, and fraction. The range is identical to real, but long has a precision 
of 16 to 17 digits. 

Variables which appear in a COMPLEX statement hold numbers in complex form. Complex repre- 
sentation is a 64-bit quantity consisting of two real numbers, one for the real part of the complex 
number and one for the imaginary part. 



NUMERIC CONSTANT FORMS 

When constants are used in an expression, DATA statement, or during execution of an INPUT or 
ENTER statement, they are represented in one of five forms: integer, fixed-point, floating-point, 
complex, or long. Fixed and floating-point numbers are type REAL. 
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Integer Form 



An integer is a series of digits without a decimal point. A number in integer form is represented 
externally (e.g., on the list device) as type INTEGER, but internally as type REAL. Examples of 
integer form: 

10 INTEGER A,B,C,D 
20 A=l0,B=150 t C=5903,D=5 
30 PRINT A,B,C,D 
>RUN 

10 150 5903 5 

When arithmetic operations are performed on expressions containing an integer constant, the results 
are real numbers. However, when both operands are type INTEGER, the result is truncated to the 
nearest integer. For instance, 

10 INTEGER I, J 
20 LET I=3,J=5 
30 PRINT 3/5,3/J,I /5,I/J 
>RUN 

• 6 • 6 .6 0 



Fixed-Point Form 

A fixed-point number is a series of digits with a decimal point. A number in fixed-point form is 
represented internally as type REAL. For example: 

13 REAL A,B,C,D 

20 A = 73, B=5. 5, C= . 000567,0=153. 97 
30 PRINT A,B,C,D 
>RUN 

73 5.5 .000567 153.97 



Floating-Point Form 

A floating-point number is a fixed or integer form number followed by the letter E and an optionally 
signed exponent. The exponent represents the power of 10 by which the number is multiplied. For 
example 3E-11 equals 3 X lCT**. Numbers in floating-point form are represented internally as type 
REAL. Examples of floating-point numbers: 

10 REAL A,B,C,D 

20 A=3E-11 ,B = .4723E-4,C=1 .1E4,D=1 .1E10 
30 PRINT A ,B,C,D 
>RUN 

3.00000E-1 1 4. 72300E-05 11000 1.10000E+10 

A fixed or floating point real number that has an integer value between -999999 and 999999 is 
printed as an integer. 



APR 1978 
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Complex Form 

A complex number consists of two numbers in integer, fixed-point, or floating-point form, separated 
by a comma and enclosed in parentheses. The first number is the real part, the second represents 
the imaginary part. Complex numbers are represented internally as type COMPLEX. Examples of 
complex numbers: 

10 COMPLEX A,B,C,D 

20 A = (3, 5) ,B = (3.2E-9,0),C = (0,-4 7) ,D = (0, 0) 
30 PRINT A,B,C,D 
>RUN 

( 3.00000E+00, 5.00000E+00) ( 3 .20000E-09, 0.00000E+00) 

( 0.00000£+00,-4.70000E+01) ( 0.00000E+00, 0.00000E+00) 



Long Form 

Numbers in long form are identical to numbers in real form, except that the letter E is replaced by 
the letter L. Long numbers have almost double the precision of real numbers. Long numbers are 
represented internally as type LONG. Examples of long numbers: 

10 LONG A-.B..CD 

20 A=3L- 1 1 , B=4.751 259L-6., C=- 1 . 1L5, D= 1 . 1L- 1 5 
30 PRINT A,B, C D 
>PUN 

3.000000000000000L- 1 1 4.751259000000000L-06 
-1.1 0000000000000 0L + 05 1. 1 000 00 00000000 0L- 15 



Examples of Type Statements 

This example assigns values to and prints two integer variables and an integer array: 



10 


INTEGER 


A , 


Bl, 


Nt5,5] 




20 


LET 


A 


= 5 


,31 


= 10 






30 


MAT 


N 


rZER 








40 


PRINT 


A 


,B1 








50 


MAT 


PRINT 


N; 






»RUN 
















5 










10 






0 


0 






0 




0 


0 


0 


0 






0 




0 


0 


0 


0 






0 




0 


0 


0 


0 






0 




0 


0 


0 


0 






0 




0 


0 



Note that the type statement is used instead of a DIM statement to define the dimensions of array N. 
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This example assigns values to and prints two real variables; one is printed as floating-point and the 
other as fixed-point: 

10 REAL I, J 

20 LET I=2795348.6,J=2.79E-3 
30 PRINT I, J 
>RUN 

2 .79535E+06 .00279 

I is printed as a floating-point number because its magnitude is greater than 999999.5; J is printed 
as fixed -point because its magnitude is less than 999999.5 (see Numeric Output Formats in the 
PRINT statement description, Section II). Note that the printed value of I is rounded. 

The following example inputs values to the type LONG variable P, then doubles each value and 
prints it: 

10 LONG P 
20 INPUT P 
30 LET P=P+P 
40 PRINT P 
>RUN 

72.7L+ 1 0 
5 . 40 00 00 000 000 00 0L+ 1 0 

>P.UN 

?2. 5L+ 12 
5.000000000000000L+12 

>PUN 

?2. 0L+ 1 1 
4. 000000000000000L+ 1 1 



The example below reads data into two complex variables and one complex array, and then prints 
the variable and array values: 

10 COMPLEX C9,Q8,M[15] 

20 READ C9.Q8 

30 MAT READ Mt 5 ] 

40 PRINT C9,LIN(1),Q8,LIN(1) 

5 0 MAT PRINT M; 

90 DATA (4.5E-6,1.2E-9),4.23E6 

100 DATA (3,9>,C4.5,-30),C4.5E-S,1.2E-9),C25.3,30.2),C0,0) 

( 4.50000E-06, 1.20000E-09) 
( 4.23000E+0S, 0.00000E+00) 

( 3 .00000E+00, 9.00000E+00) ( 4.50000E+20,-3.20000E+01) 

( 4.50000E-06, 1 .20000E-09) ( 2 .53000E+01, 3.02000E+01) 
( 0.00000E+00, 0.00000E+ 00) 
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PRINTING LONG AND COMPLEX DATA 



Numbers of all data types can be output with the PRINT statement. All numeric quantities, regard- 
less of type, are printed left-justified in a field whose width is always a multiple of 3. At least one 
blank is always printed on the right side of the field, unless it is the last item on the line. 

The output form for values of type INTEGER and REAL is described under Numeric Output For- 
mats in the PRINT statement description, Section II. 

The output form for long quantities is an 16 digit fixed-point number followed by an exponent and 
two trailing blanks. The total required is 24 print positions. 



sign 
\ 


fixed-point number 
\ 


.iexponent 

\ 


trailing blanks 
/ 




16 digits & decimal pt. 
i i i i i i ■ i , i i i i i i i 


L 

, 1 1 


j ^ 





For example : 

10 LONG A,B-,CD., E 

20 A=7.3215L9,B=4.32L-8 

30 C=4.3214978L-8.» D=2. 173L2 

40 E=2.173L6 

50 print a; b; c;lin< i ), d; e 

>PUN 

7. 321 500000000000L+09 4. 320000000000000L-08 4. 32 1 497800000000L- 
2. 173000000000000L+02 2. 173000000000000L+06 



The output form for complex numbers is two real numbers separated by a comma and enclosed in 
parentheses (i.e., this is the same form as a complex constant). Each part of the number is printed 
as a separate 6-digit fixed-point number, followed by an exponent. The total required is 30 print 
positions including 3 trailing blanks: 



real number 



real number 



trailing blanks 



( 




6 digits & decimal pt. 
....1, ...i, i i i i 


E±exp 
■ i i 






6 digits & decimal pt. 



E ± exp 
i . i i 


) 


i i 



/ 

sign 



T 

sign 



For example: 

10 COMPLEX A ,B 
20 LET A = (l .2E8, 1 .39E-6) 
30 LET B=<12.5,1 .56E6) 
40 PRINT A;B 
>RUN 

( 1 .20000E+08, 1 .39020E-06) ( 1 .25000E+01, 1 .56000E+06) 



4-6 



NUMERIC EXPRESSIONS 



Variables of all data types and numbers of all data forms can be used in numeric expressions. 
BASIC/ 3000 provides the arithmetic operations for all four data types as well as automatic conver- 
sion when two operands are not of the same type. The following table summarizes the results of 
combining arithmetic elements with any operator (except AND, OR, NOT, and relational): 



Second Element Data Type 





INTEGER 


REAL 


LONG 


COMPLEX 


INTEGER 


INTEGER 


REAL 


LONG 


COMPLEX 


REAL 


REAL 


REAL 


LONG 


COMPLEX 


LONG 


LONG 


LONG 


LONG 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 



When the operators AND, OR, NOT, =,<,>, <=,>=, and <> are used, the result is always type 
REAL (0 for false, 1 for true). When relations are performed on complex numbers, the real parts 
are compared first; the imaginary parts are compared only if the real parts are equal. 



Examples 

An integer combined with a real type in an expression results in a real number; two integers result 
in an integer: 

10 INTEGER I ,1 1 
20 REAL R 

30 LET I=25,Ilr50,R=2.75 
40 PRINT I+Il 
50 PRINT I+R 
>RUN 
75 

2 7.75 

A real type combined with a long results in a long type number; a long type combined with a com- 
plex results in a complex type number: 



10 


REAL R 


20 


LONG L 


30 


LET L=-5.25L2, 


40 


PRINT L+R 


50 


COMPLEX C 


60 


C=C2. 75,-1 .25) 


70 


PRINT L+C 


>RUN 





-5.222500000000000L+02 
(-5.22250E+02,- 1 .25000E+00) 
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CONDITIONAL STATEMENT 



The numeric expression used to make a branching decision in a conditional statement (Section II) 
can contain, or result in, any numeric data type. The expression is considered false if equal to 0, 
true otherwise. 



NUMERIC ASSIGNMENT 

When the result of a numeric expression is assigned to a variable, it is converted to the type of that 
variable. In a LET statement, the same result can be assigned to several variables in turn, from right 
to left (A=B=C=5+D7). These variables need not be of the same type. If they are not, a conversion 
is performed at each step in the assignment. 

The method of conversion used in assigning values to variables of differing data types is summarized 
in this table: 



Variable Type 


Value Type 


Conversion Method 


INTEGER 


REAL 


Round. 


INTEGER 


LONG 


Round. 


INTEGER 


COMPLEX 


Round real part; drop imaginary part. 


REAL 


INTEGER 


Float. 


REAL 


LONG 


Truncate to real precision. 


REAL 


COMPLEX 


Drop imaginary part. 


LONG 


INTEGER 


Float to long precision. 


LONG 


REAL 


Extend mantissa with zeroes. 


LONG 


COMPLEX 


Extend mantissa of real part with zeroes; drop 
imaginary part. 


COMPLEX 


INTEGER 


Float for real part; imaginary part equals zero. 


COMPLEX 


REAL 


Imaginary part equals zero. 


COMPLEX 


LONG 


Truncate to real precision for real part; imaginary part 
equals zero. 



Note that this table applies wherever values are assigned to variables (INPUT, READ, etc.). 
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An example of multiple assignment with type conversion is: 



10 


INTEGER 


I 


20 


REAL R 




30 


COMPLEX 


C 


40 


LONG L 




50 


LET R=C= 


I=L= 1 


60 


PRINT R.» 


C» I>L 


>RUN 







2 ( 2. 00000E+00, 0.00000E+00) 2 

1. 50000000000000 0L +00 

Note that the long number is rounded up to 2 when it is converted to the integer variable I. R and 
C also equal 2 since they are assigned after I. If line 50 is changed so that C is assigned before I, the 
rounding does not affect C : 



10 


INTEGER 


I 


20 


REAL R 




30 


COM PL EX 


C 


40 


LONG L 




50 


LET R=I= 


C=L=1 . 


60 


PRINT R, 


C I,L 


>RUN 







2 ( 1.50000E+00, 0.00000E+00) 2 

1 . 500000000000000L+00 

If the constant 1.4 is assigned instead of 1.5, the number is rounded to 1 when it is converted to an 
integer and assigned to I. As a result of this integer conversion, R is also set equal to 1: 



10 


INTEGER 


I 


20 


REAL R 




30 


COMPLEX 


C 


40 


LONG L 




50 


LET R=I= 


C=L= 1 . 4L0 


60 


PRINT R, 


C, I..L 


>RUN 







1 ( 1 . 40000E+00., 0.00000E+00) 1 

1 . 40 000000 00 00 00 0L+ 00 



ENTERING NUMERIC DATA 

Constants of all data forms can be entered using READ, INPUT, and ENTER statements. Once 
entered they are converted to the type of the receiving variable according to the table under 
"Numeric Assignment." 

OTHER USES OF DATA TYPES 

Numbers of all data types can be output with controlled format with the PRINT USING statement 
(see Section IX). Numbers of all data types can also be written onto and read from mass storage data 
files. This process is described fully in Section VIII. 
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NUMERIC ARRAYS 



Arrays can be of all data types. Each element of the array is a variable of the specified type. The 
type statement effectively provides the dimensions of an array. All of the MAT statements dealing 
with arrays (see Section III) apply equally to integer, real, long, and complex arrays, except that 
integer arrays cannot be inverted with the MAT Inverse statement. Arrays of different types cannot 
be mixed in a MAT statement. 



Examples 

10 INTEGER K 3,5] 

20 LONG LC2,2] 

30 REAL RC2,23 

40 COMPLEX CC 2, 2 ] 

50 MAT I=ZER 

60 MAT R=C0N 

7 0 MAT C=IDN 

80 MAT L= I DN 

90 MAT L=(25**2)*L 

100 MAT PRINT i;LIN( 1 ),RJLIN( 1 C;LIN( 1 >,l; 
>PUN 

0 0 0 0 0 

0 0 0 0 0 

0 0 0 0 0 



1 1 
1 1 



( 1.00000E+00, 0.00000E+00) ( 0.00000E+00, 0.00000E+00) 
( 0 • 00000E+00, 0.00000E+00) ( 1 . 00000E+00, 0.00000E+00) 



6. 2 5000000 0000000L+ 0 2 0. 000000 0 0 00 0 000 0L+ 00 
0.000000000000 00 0L+00 6. 2 50000000000000L+0 2 
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FUNCTION CLASS 

Numeric built-in functions are divided into four classes according to the nature of their result. 

The following table defines the four classes of function. The type of result they return is shown for 
the different argument types: 

Type of Argument 



INTEGER/REAL 


LONG 


COMPLEX 


REAL 


LONG 


REAL 


REAL 


LONG 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


REAL 


REAL 


REAL 



The numeric functions are listed below according to their class. A complete list of these functions 
with their meaning is contained in Appendix E. 



Class 1 Functions 

ABS(x) Absolute value of x. 

ATN(x) Arctangent x. 

INT(x) Largest integer less than or equal to x. 

CEI(x) Smallest integer greater than or equal to x. 

Class 2 Functions 

EXP(x) e x 

LOG(x) loggx 

SQR(x) Square root of x. 

SIN(x) Sine x. 

COS(x) Cosine x. 



4-11 



TAN(x) 
SNH(x) 
CSH(x) 
TNH(x) 
PIX(x) 

Class 3 Functions 

CNJ(x) 
CPX(x,y) 

Class 4 Functions 
RND(x) 
REA(x) 
IMG(x) 



Tangent x. 
Hyperbolic sine x. 
Hyperbolic cosine x. 
Hyperbolic tangent x. 

7T * X 

Complex conjugate of x. 
Complex number x+yi 

Random number. 
Real part of x. 
Imaginary part of x. 
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SECTION V 
Strings 



BASIC/3000 allows the programmer to manipulate character strings through the use of string literals, 
variables, arrays, functions, operators, assignment statements, and input/output statements. Many of 
the uses of strings are enhancements to statements that have already been described, such as READ 
and PRINT. 



LITERAL STRINGS 

A literal string is a sequence of up to 255 characters. Each character is represented internally by a 
number between zero and 255 as defined in the standard ASCII character set (see Appendix A). 
Some of these characters have graphic representations (they can be printed— A, B, d, %), while others 
do not (they are nonprinting— return, linefeed). Both types of characters can be included in a literal 
string, but each is handled differently. 



Form 

A literal string consists of a series of graphic characters surrounded by quote marks: 
"character string" 

The quote mark cannot be included as a character in the character string. 

The quote mark and nonprinting characters can, however, be included in a literal string by using 
the integer numeric equivalent of the character preceded by an apostrophe: 

'integer 

The integer may be in the range 0-255, but it is good practice to restrict this form to nonprinting 
characters and the quote mark (34). Nonprinting characters can be combined with quoted strings 
in a literal string. 
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Explanation 



Literal strings can include both upper case and lower case letters. When a literal string is printed, 
each character value is printed literally on the output device. However, when a program is listed, 
literal strings are listed with all graphic characters except the quote mark in quotes and non-graphic 
characters represented in the apostrophe form. 



Examples 

M It 

"BASIC" 
"B 

'13 '10 

'13 * 1 0" TRIPLE STRING" *7 

"A" M24"B" 

•34 



A null string (a string of zero length) 

Carriage return, line feed 
The literal ends with a bell 
The literal is A vertical line B 
The quote mark 



The apostrophe literal form can be juxtaposed with another apostrophe literal; quoted strings can- 
not be juxtaposed with one another. 



DIM Statement with Strings 



Literal strings can be contained in string variables, simple or subscripted. Simple string variables 
greater than one character in length and every array string variable must be dimensioned in a DIM 
statement. The purpose of the DIM statement is to reserve storage for strings and arrays and to 
establish their names and maximum size. 



Form 

The DIM statement consists of the word DIM followed by a list of variable and array definitions 
separated by commas. 

DIM variable(string size),variable(string size), . . . 

where variable is the name of a simple string variable specified as a letter followed by a $ or a letter 
and a digit followed by a $, The string size is an integer constant that specifies the maximum 
number of characters the string can contain. 

DIM variable(array size,string size),variable(string size), . . . 

The array size specifies the total number of elements in the array; the string size specifies the maxi- 
mum number of characters in each element. Only one-dimensional string arrays are allowed. Both 
array size and string size are integers. 

If more than one variable is included in a single DIM statement, they must be separated by commas. 
Simple string and string array variables may be dimensioned in the same DIM statement. 



Explanation 

If a string variable does not appear in a DIM statement then it is implicitly defined as a one-character 
simple variable. String arrays must be declared in DIM; there is no implicit size for string arrays as 
there is for numeric arrays. String variables and elements of string arrays are initialized to the null 
string. 

The DIM statement can also be used to declare numeric arrays in the same or a different statement 
(see Section III). 
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Example 



10 DIM ASC 193,B$C5, 123,C5$C 10, 123 
20 A$=" TITLE OF SECTION IS" 
3 0 MAT READ B$; 
40 MAT READ C5$ 

50 DATA "ARRAYS" /'STRINGS", "MESSAGES", "FILES", "INPUT/OUTPUT 
60 DA T A "A 1 " , " A2 " , "A3 " , " A 4" , "A 5" , "B 1 " , "B2" , "B3 " , "B4 " , "B5 " 
70 PRINT A$,C5$[5],B$t5J 
>RUN 

TITLE OF SECTION IS A5 INPUT/OUTPUT 



The entire simple string variable A$ is printed, followed by the 5th element of the string array C5$ 
and the 5th element of the string array B$. 
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REDIM Statement with Strings 



The purpose of the REDIM statement is to dynamically vary the number of elements in a string 
array, but not the string size itself. 



Form 

The form of the REDIM statement is the word REDIM followed by a list of previously dimensioned 
string array variables, each one followed by a new size specification in parentheses. 

REDIM variable(new array size) 

The new array size must be an integer or an integer expression that results in a value between 1 and 
the previously defined maximum size of the array. Only the array size may be redimensioned; the 
string size may not be changed. Simple string variables may not be redimensioned. The variable 
must be a string array that has been dimensioned, either implicitly or in a DIM statement. 



Explanation 

REDIM changes the size of a one-dimensional string array, but cannot increase the original size. 
The array must have been previously dimensioned with DIM. Unlike DIM, REDIM is an executable 
statement and its position in a program has meaning. The REDIM statement can also be used to 
change the dimensions of numeric arrays in the same or a different statement (see Section III). 

Example 

The number of elements in the string arrays C5$ and B$ is reduced in a REDIM statement in 
line 50. Then the values read into the 3rd element of C5$ and the 2nd element of B$ are printed 
following the value of the simple string A$. The maximum length of the individual elements in C5$ 
and B$ is not affected by REDIM; these lengths remain as specified in the original DIM statement. 

10 DIM A$t20],B$[5, 12], C5$t 10,2] 
20 A$~ " TI TLE OF SECTION IS" 

3 0 DATA; "ARRAYS", "STRINGS", "MESS AGES", "FILES", "INPUT/OUTPUT" 
40 DATA "A 1 " , "A2" , "A3 " , "A 4" ,"A5" ,"B 1" , "B2" , "B3" , "B4" , "B5" 
50 REDIM B$[3 ], C5$t5] 
60 MAT READ B$ 
70 RESTORE 40 
80 MAT READ C5$ 
90 PRINT A$,C5$[3 ],B$t2] 
>RUN 

TITLE OF SECTION IS A3 STRINGS 
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String Variable 



A string variable (simple or subscripted) is used to hold a string literal. The declared size of a string 
variable is called its physical length. The maximum length of any string variable is 255 characters. 
A string variable not mentioned in a DIM statement is a simple variable one character in length. 

During execution, each string variable contains strings whose length cannot exceed the variable's 
physical size. This dynamic length is called the logical length of the variable and is initialized to 
zero (i.e., the null string) at the beginning of program execution. 



Form 

A simple string variable is referenced by its name and an optional substring designator in parentheses. 
string name 

string name(first character) 

string name(first character, last character) 

string name(first character; number of characters) 

The string name is a letter followed by a $ or a letter and a digit followed by a $. The string name 
may be followed by a substring designator in parentheses. 

The substring designator consists of one or two numeric expressions, separated by a comma or semi- 
colon. The first expression always specifies the first character position of the substring. The ending 
character is determined by the second expression. 

If the two expressions are separated by a comma, the second expression specifies the last character 
position; if they are separated by a semicolon it specifies the number of characters. If there is only 
one expression, the ending character position is the last character of the string. 

A string array variable is referenced by the string name followed, in parentheses, by a subscript and 
an optional substring designator separated by a comma. 

string name(subscript) 

string name(subscript,first character) 

string name (subscript, first characterjast character) 

string name(subscript,first character ;number of characters) 

The subscript is an integer expression that specifies the element of the array to be selected. Since a 
string array may have only one dimension, there may be only one subscript value. 

The substring designator and the string name are specified in the same way for string array variables 
as for simple string variables. 

Unlike numeric array variables, a string array variable must not have the same name as a simple 
string variable. 
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Explanation 



Any string variable, simple or subscripted, can be qualified by a substring designator, which is used 
to select a part of the string to be extracted. 

If the substring is specified by a single expression, the substring equals the rest of the string taken 
from the position indicated by the expression. 

If two expressions are separated by a comma, the substring consists of the characters from the 
position specified by the first expression to the position specified by the second expression. 
(Note: the second expression can be one less than the first; this specifies the null string). 

If two expressions are separated by a semicolon, the substring consists of the characters in the string 
variable starting at the position indicated by the first expression and taking the number of con- 
secutive characters specified by the second expression. In this case, the expression may evaluate to 
zero, giving a null string. 



If A $ is a simple variable: 
A$(3,5) 
A$(3;3) 

A$(3;0) 
A$(3,2) 
A$ 

If B$ is an array variable: 
B$(3) 
B$(2,3,5) 

B$(2,3;3) 



is the 3rd through the 5th character of the string . 

is also the 3rd through the 5th character of the string since, in this case, 
the second expression follows a semicolon indicating the number of 
characters rather than the last character. 

is the null string. 

is also the null string. 

every character in the string is selected. 



is the entire 3rd string in the string array. 

is the 3rd through 5th characters in the second string of the string 
array. 

is also the 3rd through 5th characters in the second string; the substring 
starts at the 3rd character and contains 3 characters. 



A string array variable must always be subscripted except in MAT statements (see String MAT 
Operations, this section). 
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The subscript and substring designator expressions may be any integer expressions. Suppose the 
variables I and J are used, with I equal to 5 and J equal to 10: 

C$(I) is the 5th character to the end of the string if C$ is a simple string 

variable; it is the entire 5th string or element if C$ is a string array 
variable. 

C$(I,J) is the 5th through 10th character if C$ is a simple string variable; it is 

the 10th character to the end of the string of the 5th string if C$ is a 
string array variable. 

If a substring extends beyond the logical length of a string variable, it is filled out to the specified 
size with blanks. 



Examples 

10 DIM A$[10] 
20 A$="ABCDEFGHIJ" 
30 PRINT "STRING A$=";A$ 
40 PRINT "SUBSTRING A $ (5 ) = " ; A$[ 5 1 
50 PRINT "SUBSTRING A $ (2; 5 ) = " ; A$I2 ; 5 ] 
60 PRINT "SUBSTRING A$ (2 , 5 ) =" ; A$t2 , 5 ] 
70 PRINT A$[2, 1 ];" = NULL STRING" 
>RUN 

STRING A $=ABCDEFGHI J 
SUBSTRING A$(5)rEFGHIJ 
SUBSTRING A$(2;5)=BCDEF 
SUBSTRING A$(2,5)=BCDE 
= NULL STRING 

In the example above, note the difference between A$(2;5) and A$(2,5). In the example below, 
each array element is a two character string. 



10 DIM B$[10,2 ] 

20 REM B$ IS A STRING ARRAY 

30 MAT READ B$ 

40 DATA "A1","B2","C3","D4","E5","FS","G7","H8","I9"»"J0 
50 PRINT "ARRAY ELEMENT B$(2) = ";B$[2 ] 
60 PRINT "ARRAY ELEMENT B$(2,2) = " ;B$t2,2 1 
70 PRINT "ARRAY ELEMENT B$(2, 1; 1 > = "|B$(2, 1 ; 1 ] 
>RUN 

ARRAY ELEMENT B$(2)=B2 
ARRAY ELEMENT B$(2,2)=2 
ARRAY ELEMENT B$(2,l;l)=B 
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String Expressions 



String expressions consist of one or more source strings (literal strings, string variables, string 
valued functions) combined from left to right with the concatenate operator (+) to form a single 
new string value. String expressions can be assigned to string variables or compared with other 
string expressions to form a numeric expression. 



Form 

The form is a list of source strings separated by "+" 
string 

string + string. . . 

Each source string can be either a literal string, a string variable, or a string function. 



Explanation 

A source string is any entity from which a string value is extracted. The value of the source string 
is as defined under "String Literals," "String Variables," and "String Functions." An example of 
a literal string is "BASIC" or '10; of a string variable is A$, C5$(2), B$(2,3), B$(2;2), or Al$(5,3,10); 
of a string function is CHR$(208). 

The "+" character, when used between two source strings, is the concatenate operator. The con- 
catenation of two strings produces a temporary string whose characters are those of the first string 
immediately followed by those of the second. This temporary string can be used in further con- 
catenation operations, in string comparisons, or it can be assigned to a string variable. 

The maximum length of any temporary string is 255 characters. The original operands are un- 
affected by concatenation. 

Legal string expressions: 

A$ + B$(2) + '93 + '10'23"ABCD" + C5$(4,3;5) 

"BASIC" + C5$(2) 

"BASIC" 

C5$(2) 

Example 

10 DIM A$[5),B$U0,10] 
20 LET A$= M C0fT,B$t2 ^"CATENATION" 
30 PRINT A$+B$[2, 1; 7]+"E" 
>RUN 

CONCATENATE 
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String Assignment 



The assignment operator (=) can be used to assign a string value (defined by a string expression) to 
one or more string variables (or substrings of string variables). Several different assignments can 
appear in one LET statement. 



Form 

Some forms of LET are 

LET uariable=expression 

LET variable=variable= . . =variable=expression 

LET variable=expression,variable=variable=expression,. . . 

The word LET is entirely optional and can be left off. The variable is an entire string variable 
(simple or subscripted) or part of a string variable (indicated by a substring designator) into which a 
string value is to be copied. If several variables are separated by equals (=) each is assigned a copy of 
the value. Numeric assignments as described in Section II can be mixed with string assignments in 
the same LET statement. 



Explanation 

The execution of a LET statement proceeds as follows. The subscripts of variables to be assigned 
values are evaluated from left to right. The expression is then evaluated and assigned to the variables. 
The same expression is assigned to each variable from left to right. The manner in which each assign- 
ment occurs depends upon the number of substring subscripts specified for the destination variable. 

If there is no substring designator, the entire variable is replaced by the string value. If the new value 
will fit entirely into the variable, the logical length of the variable is set to the length of the new 
value. If the variable is too small, the value is truncated on the right and the logical length of the 
string is made equal to the physical length. 

If there is one substring subscript, this specifies the starting position for the assignment. The entire 
string value is copied into the variable starting with the indicated position and continuing to the 
physical end of the variable or the end of the string value, whichever comes first. The part of the 
variable preceding the subscript is unchanged. The starting subscript must be no more than one 
greater than the current logical length of the variable (i.e., there can be no undefined character 
positions in the middle of a string variable). If the variable is too small, the value is truncated on the 
right. 

If two substring subscripts are specified, they define a field within the variable into which the string 
value is stored. If necessary, the value will be truncated on the right or padded out with blanks to 
fit exactly in the substring specified. The substring for the destination must not extend beyond the 
physical length of the string variable and all previously mentioned rules must be followed also. The 
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new logical length of the variable is the larger of the old logical length or the last position of the 
substring. Any characters from the old value to the left or right of the substring are unchanged. 



Example 



10 DIM A$U0] 

20 LET A$= M 1234567890" 

30 PRINT A$ 

40 LET A$[5]="ABCDEF" 

50 PRINT A$ 

60 LET A$[7;3]="1234" 

70 PRINT A$ 

80 A$t6,81 = "X" 

90 PRINT A$ 
1 00 A$=A$ll ,4]+"567890" 
1 10 PRINT A$ 
>RUN 

1234567390 
1234ABCDEF 
1234AB123F 
1234AX 3F 
1234567890 



Note that the literal "1234" in line 60 is truncated to fit in substring A$(7;3). 

In line 80, substring A$(6,8) is blank filled since "X" is only one character. The final value of A$ 
is the same as its original value assigned in line 20. 

The example below illustrates variations on assignments to substrings of array elements: 



10 DIM A$[3,5 ] 

20 A$tl ]=A$[2 ]=A$(3 ] = "ABCDE" 
30 LET A$U ,3 ]=A$[2 J 
40 PRINT A$I1 1,A$[2 1,A$I3 ] 
50 LET A$[2,4,5 3=A$[3 1 
60 PRINT A$[l ],A$t2 ],A$[3 ] 
70 LET A$t3,2;2 ]=A$[2]=A$[ 1, 1, 1 ] 
80 PRINT A$[l 1,A$[2 ],A$t3 ] 



>RUN 
ABABC 
ABABC 
ABABC 



ABODE 
ABCAB 
A 



ABODE 
ABODE 
AA DE 
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String-Related Functions 



There are a number of predefined functions in BASIC/3000 that accept string values as parameters 
and/or return a string value as their result. (User-defined string functions are described in Section 
VI.) 



CHR$ Function 

CHR$(integer expression ) 

where integer expression given a value in the range 0 to 255 inclusive. The value of CHR$ is 
the string character that corresponds to the value of the expression in the standard character 
set (see Appendix A). For example, 

10 PRINT CHR$(65) 
>RUN 
A 



NUM Function 

NUM (string expression) 

NUM returns the numeric value of the first character of the string expression according to the 
standard character code in Appendix A. For example, 

10 PRINT NUMCA") 
>RUN 
65 



LEN Function 

LEN returns the logical length of the string expression. For example, 



10 DIM A$[20] 
20 A $: "ABCD" 
30 PRINT LEN(A$) 
>RUN 
4 
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POS Function 

POS(stringA,stringB) 

where stringA and stringB are any string expressions; POS returns the smallest integer that repre- 
sents the starting position of a substring in stringA that exactly equals stringB. If stringB is not a 
substring of stringA, then POS equals zero. For example. 

10 PRINT FOSriZhBCiA" t M ^BC ) 
>RUN 

3 

WRD Function 

WRD(stringA,stringB) 

where stringA and stringB are any string expressions. WRD returns the smallest integer that repre- 
sents the starting position of a substring in stringA that exactly equals the value of stringB and is 
neither immediately preceded nor immediately followed by a letter. If there is no such substring, 
WRD equals zero. For example, 

NOTE: This function is not valid for non-Roman alphabetical character strings. In particular, 
WRD Function cannot be used for alphabetical characters (such as katakana characters) 
whose decimal equivalents are greater than 127 in the ASCII collating sequence. 

10 PRINT WRD ("S TR1 NG A$ EQUALS X$" , " EG1UALS " ) 
20 PRINT WRDC M 12ABC3 4 , ',' , ABC" ) 
30 PRINT WRDri2ABC3 4","BC" ) 
>RUN 
1 1 
3 
0 

UPS$ Function 

UPS$(string expression) 

UPS$ returns a string value equivalent to string with all lower case Roman letters upshifted. 
UPS$("abcd%12") is "ABCD%12". 



DEB$ Function 

DEB$(string expression ) 

DEB$ returns a string equal to the specified string expression, but with all leading and trailing blanks 
removed. Embedded blanks remain. For example, 

10 PRINT DEB$< W A B " ) 

>RUN 
A B 



APR 1978 
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ROW Function 

ROW(s tring a rray ) 

where string array is any string array name without subscripts. ROW returns the number of elements 
in the array since a string array is always one-dimensional. For example, 



10 DIM B$[15,5] 
20 PRINT ROW<B$) 
30 REDIM B$(10] 
40 PRINT R0W(B$) 
>RUN 

15 

10 



COL Function 

COL(string array ) 

where string array is any string array name. COL returns the number of columns in the array. Since 
string arrays are always one-dimensional, COL always returns a value of 1 for string arrays. For 
example, 



13 DIM B$[15 t 6] 
20 PRINT COL(B$) 
>RUN 
1 



DAT Function 



DAT$(x,y) 



where x and y are integer expressions which specify the first and last character positions, respectively, 
of a substring within a full string which defines the current date and time. The full date/time string 
is structured as follows: 



Char 1-3: 
4-5: 
6-8: 

9 

10-11 
12-13 
14-17 
18-19 



Day of the week (SUN, MON, TUE, WED, THU, FRI, SAT) 
Comma and blank 

Month of the year (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, 
DEC) 

Blank 

Day of the month (1 to 31) 

Comma and blank 

Year 

Comma and blank 
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20-21 


Hour (1 to 12) 


22 


Colon 


23-24 


Minute (0 to 59) 


25 


Blank 


26-27 


AM or PM 



For example, to print the entire date/time string: 

10 PRINT DAT$(1,27) 
>RUN 

WED, MAY 30, 1973, 2:45 PM 



To print only the date : 

10 PRINT DAT$(6,17) 
>RUN 

MAY 30, 1973 

To print only the time: 



10 PRINT DAT$<20,27) 
>RUN 
2:46 PM 
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Comparing Strings 



String expressions can be compared with relational operators to produce a result of true (numeric 1 ) 
if the relation holds or false (numeric 0) if the relation does not hold. The relational operators are: 

Equal 

< > Not equal 

< Less Than 

> Greater Than 

< = Less Than or Equal 

> = Greater Than or Equal 

Two strings are equal only if they have the same logical length and each character matches. A string 
is less than another if its first character that does not match the other is numerically less (according 
to the standard character code in Appendix A) or it is an initial proper subset of the other (e.g., 
"AB" < "ABC" but "BA" > "ABC"). 

A string comparison can appear within a numeric expression, since the result is a number. The string 
relational operators have the same position in the hierarchy of operators as do the numeric relations. 
For example, these are string comparisons: 

A$=B$ 

A$=B$ OR C$>=D$ 
(A$O"B0B" ) + 5 

See Section II for the meaning and hierarchy of relational operators. 
A common use of string comparisons is in IF statements. 



Examples 

10 DIM A$U0],B$U0] 
20 READ A$,B$ 

30 IF A$<B$ THEN PRINT A$; M <";B$ 
40 ELSE DO 

50 IF A$=B$ THEN PRINT A$;"=";B$ 
60 ELSE PRINT A$;">";B$ 
70 DOEND 
80 GOTO 20 

90 DATA "ABC'VABCD" ,"ABC" t "B" 
100 DATA • "ABC t "ABC , "C" , "" 
>RUN 

ABC<ABCD 
ABC <B 
ABC=ABC 
O 

OUT OF DATA IN LINE 20 
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String Input and Output 



Values may be read from DATA statements with the READ statement, or they may be input by 
the user with INPUT, ENTER, or LINPUT statements. They are output with PRINT statements. 



READING STRINGS 

The READ, DATA, and RESTORE statements can be used with string variables that are simple or 
subscripted, with or without substrings. The string variable is listed in the READ statement and a 
corresponding string constant must appear in the DATA statement. A RESTORE statement can be 
used if the DATA statement is to be read again by a subsequent READ statement. For a full 
description of READ/DATA/RESTORE statements, see Section II. 

String variables can be mixed with numeric variables in READ, but the corresponding constant for 
each variable must match— string constant for string variable and number for numeric variable. The 
string constant is assigned to the variable according to the rules defined in String Assignment, this 
section. 

Strings can also be read from files as described in Section VIII, and string arrays can be read with 
MAT READ as described in Section III. 



Examples 



10 DIM A$(20],B$[20] 
20 DATA "BOB", ' 13"J0NES M 
30 READ ASCI ,3 ] 
40 READ A$[4;6] 
45 REM . .A $=**BOB" ' 1 0" J ONES' 
5 0 LET B$="HI" 
60 PRINT B$,A$ 
>RUN 

HI BOB 

JONES 



When the PRINT statement is executed, the character for linefeed ('10) is not printed but causes a 
linefeed. 
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INPUTTING STRINGS 



The INPUT statement can be used to assign string constants to string variables from the terminal. 
The rules for entering strings from the terminal are 

1. The apostrophe form of a string literal (e.g., '40) is not allowed. 

2. All strings must have quote marks around them except the last one entered on each line. 

3. If the last string on a line does not begin with a quote, it starts with the first non-blank 
character (i.e., it can have no leading blanks) and ends with the last non-blank character 
before the carriage return (i.e., it can have no trailing blanks). 

The rules used to assign the value to the variable are those described under "String Assignment." 



Examples 

10 DIM A$[ 1 6],B$t2,5 ] , C$[ 40] 
20 INPUT A$,B$[ 1 1,B$[2 ),C$ 
30 PRINT A$;B$t 1 3;B$t21;CS 
>RUN 

?"THE VALUE OF B$= M ,"1234 2X5 " , X5=ABC 

THE VALUE OF B$=1234 2X5 X5 = ABC 

Note that the last value input is not quoted. Usually only one string per line is input, in which case 
quotes are not required. 



ENTERING STRINGS 

The ENTER statement allows one string variable to be assigned a value from the terminal with 
control over the input operation. See Section II for how this control is exercised. 

All characters typed in (including quotes) are assigned to the variable using the rules defined under 
String Assignment. ENTER does not prompt for input, and does not provide a linefeed after the 
user's carriage return. 
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Examples 



10 DIM A$[30 }, BSC 1 2 ] 

20 PRINT "YOU HAVE 30 SECONDS TO ENTER 30 CHARACTERS" 
30 ENTER 30,T,A$ 
40 PRINT M3,T,A$ 

53 PRINT "YOU HAVE 15 SECONDS TO ENTER 10 CHARACTERS" 
63 ENTER 15,X,B$ 
70 PRINT M3,X,B$ 
>RUN 

YOU HAVE 30 SECONDS TO ENTER 33 CHARACTERS 
LET A$ = "VALUE OF A$" , 312345 

18.59 LET A$ = "VaLUE OF h$" , 31234 

YOU HAVE 15 SECONDS TO ENTER 13 CHARACTERS 
A$=L£N (B$) 

6.44 A$=LEN(B$) 



A common use of ENTER is for testing: 



13 DIM H$t30],3$ll0] 

23 PRINT "WHO WhS THE FiHST PRESIDENT OF THE U.S.?" 
30 ENTER 3Z,T,A$ 

43 IF A $: " GEORGE WASHINGTON" THEN GOTO 83 
5 3 PRINT ' 10"SORRY ,T-:Y AGAIN" 
63 ENTER 23,T,A$ 

73 IF A $<>" GEORGE WASHINGTON" THEN GOTO 14^ 
83 PRINT ' 13"C0RRECT,Y0U TOOK" | T; "SECONDS TO ANSWER" 
93 PRINT "WHAT WAS HIS WIFE'S NAME?" 
133 ENTER 15,X,B$ 

113 IF 3$<>"MARTHA" THEN GOTO 163 

123 PRINT * 10"CORRcCT,YOU TOOK" ; X; "SEC ONDS TO ANSWER" 
13 3 iuD 

143 PRINT ' 1 3"S ORRY ,THE CORRECT ANSWER IS GEORGE WASHINGTON" 

133 END 

163 PRINT MS-SORRY, THE CORRECT ANSWER IS MaRTHh" 
>RUN 

WHO WAS THE FIRST PRESIDENT OF THE U.S.? 

FPANKL1N P, ROOSFVKM I 
SORRY. TRY AGAIN 
GEORGE WASHINGTON 

CORRECT, YOU TOOK 7.97 SECONDS TO ANSWER 

WHAT WAS HIS WIFE'S NAf.E? 

MARTHm 

CORRECT, YOU TOOK 4.13 SECONDS TO ANSWER 
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PRINTING STRINGS 



Any string expression can be output to the list device (e.g. the terminal) using the PRINT statement. 
The size of the output field is the number of printing characters in the string value. If the string 
expression is preceded by a comma, it is printed starting in the next division. Each print line is 
divided into consecutive divisions. For example, a terminal with default print length of 72 charac- 
ters will have 4 divisions of 15 characters each and one of 12 (see Print Statement, Section II). If 
the string expression is preceded by a semicolon, it is printed immediately following the preceding 
output. The semicolon between items in the print list need not appear if the first item ends with 
a quoted string, and/or the second item begins with one; in this case a semicolon is inserted 
automatically. 

Strings can be output to the terminal with special formats through the PRINT USING statement 
(see Section IX, Formatted Output). Strings can be output to files as described in Section VIII, 
and through the PRINT # USING statement (see Section IX). In addition, the MARGIN state- 
ment can be used to change the length of the print line for an ASCII file (see Section VIII). 



Examples 



10 DIM C$[10],N5$[3,5] 

20 LET C$= M XK9- 753-20 , ',A=2.5,B=lE-19,N5$t 1 ] = "ABCDE W 
30 PRINT A,B,C$ 
40 PRINT •*B0B"+C$,N5$[ 1 J 
50 PRINT C$+ M B0B"; N5$tl ] 
60 PRINT , 10 , 34*'UNE" '34 ' 1 0 * 13 ; M - 1" 
>RUN 

2 .5 1.03000E-19 XK9- 753-20 

B0BXK9- 753-20 ABCDE 
XK9- 753-20BOBABCDE 

"LINE" 
-1 



In the first expression in line 60, the '10 (linefeed) causes a linefeed, the '13 (carriage return) 
causes a carriage return when the line is printed. The "31 (quote) causes a quote to be printed 
The actual quote (") before and after the string LINE in the PRINT statement is not printed. 
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LINPUT Statement 



The LINPUT statement accepts all the characters that a user types in at the terminal and assigns 
them as a string to a specified string variable. 



Form 

LINPUT string variable 

where the string variable is the destination of the input. The variable may be simple or subscripted, 
or it may be a substring. 



Explanation 

All characters are accepted including quotes and blanks. Input is terminated by a carriage return. 
No prompt character is printed. 



Examples 



10 DIM A$t20 1 

20 PRINT " TYPE 20 CHARACTERS: 
30 LINPUT A$ 
40 PRINT A$ 

50 PRINT " TYPE 5 CHARACTERS : " 
60 LINPUT A$U0;5] 
70 PRINT A$[10;5] 
>RUN 

TYPE 20 CHARACTERS: 
"ANY CHARACTERS" O.K. 
"ANY CHARACTERS" O.K 
TYPE 5 CHARACTERS: 
&"+ " 
&"+ " 



Because more than 20 characters (the size of A$) were input by the user, the final period in the 
first input line is truncated. In the second input, quotes are entered as part of the string. 
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String Array Operations 



The String MAT Initialize statement sets every element of a string array to the null string. In addition, 
a new dimension can be specified for the array, as in REDIM. The form for string array initialization 
is 

MA T string array = NUL$ 

MAT string array = NUL$ (integer expression ) 

Each element of the string array is set to the null string. If the optional integer expression is speci- 
fied, the number of elements in the array is changed to the number of elements specified by the 
expression. The element size is not changed. 

The String MAT Copy statement copies all of the elements of one string array into another. String 
elements are truncated if necessary. The form for string array copying is 

MA T string array A = string array B 

This causes string arrayB to be copied into string array A. String array A is redimensioned to the 
size of string arrayB. 

String arrays can be read, input, and printed with the MAT READ, MAT INPUT, and MAT PRINT 
statements as described for numeric arrays in Section III. 

String arrays can also be printed according to a specified format with the MAT PRINT USING 
statement (see Section IX). 



Examples 

10 DIM A$U0,5],B$[20,5] 
20 MAT A$=NUL$ 
3 0 MAT B$=A$ 

Each element in string array A$ is set to the null value, then the first ten elements of string array B$ 
are set to null values. B$ is redimensioned to the size of A$. 

In the example below, B$ is redimensioned and each element is set to the null string: 

10 DIM B$t20,5] 
20 MAT B$=NUL$(10) 
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Convert Statement 



The CONVERT statement is used to convert a numeric value to a string of characters that represent 
the number, or vice versa. In the first case, the conversion is identical to that used when listing. The 
destination string variable should be long enough to contain the result, as in "String Assignment"; 
if not, the result is truncated. In the second case, the string expression must represent a valid numeric 
constant. An error in this case terminates the program, unless a label is specified in the CONVERT, 
in which case, control transfers to that label. 



Form 

CONVERT numeric expression TO string variable 
CONVERT string expression TO numeric variable [Jabel] 



Explanation 

The string variable must be long enough to contain the converted numeric expression; if not, the 
converted expression is truncated. No blanks appear in the string. If the string expression in the 
second form does not represent a valid numeric constant, control transfers to the optional state- 
ment label. If the label is omitted and the string expression is not convertible, the program terminates. 



Examples 

10 A=10,B=15 

20 DIM Al$[5) 

30 CONVERT A+B TO Al$ 

40 PRINT Al$ 

50 CONVERT Al$ TO X,100 

60 PRINT X 

70 END 

100 PRINT " ERROR IN CONVERSION FROM STRING" 
>RUN 
25 

25 

Since Al$ contains the converted numeric constant, 25, there is no error in line 50. If Al$ 
contained a value that could not be converted, the message in line 100 would be printed. For 
instance, if line 50 is changed as follows: 

>50 CONVERT "Al" TO X,100 

>RUN 

25 

ERROR IN CONVERSION FROM STRING 
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SECTION VI 
User-Defined Functions 



A user-defined function is one that is defined within the user program and is called within that 
program in the same way that a built-in function is called. The name of a function that returns 
a numeric value consists of three letters, the first two of which are "FN" (e.g., FNA, FNB, etc.). 
String-valued functions have the same set of names available with the addition of a dollar sign ($) 
at the end (e.g., FNA$, FNB$,...). Thus, up to 26 numeric-valued functions and 26 string-valued 
functions are allowed in any one program. 

A function is called within an expression by referring to its name and a list of parameter values en- 
closed in parentheses. The value returned by the function takes its place in the expression. 

There are two levels of complexity in the definition of a BASIC/3000 function. At the simple 
level, a one-line function simply relates a function name and list of parameters to any expression 
which may use the parameters to calculate the result value. The multiline function is a more 
complex entity; it can consist of many statements and local variable declarations. It returns its 
result value with a RETURN statement. 

For a discussion of BASIC/3000 built-in functions, see Functions in Section II. A complete list 
of the built-in functions available to the BASIC/3000 user is contained in Appendix E. 
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One-line Function 



A one-line function is defined completely in one line, using the function DEF statement; its result is 
calculated by an expression. 



Form 

The forms of one-line function definitions are: 

DEF function-name(formal parameter list)=numeric expression 
DEF type function-name (formal parameter list)=numeric expression 
DEF string-function-name( formal parameter list)=string expression 

where function-name has the form FNletter, and string-function-name has the form FNletter$. The 
function is referenced by this name. 

If included, type specifies the data type of the result: INTEGER, REAL, LONG, or COMPLEX. If 
omitted, the data type is assumed to be real. The type specification is not allowed in the third form 
that returns a string result. 

The formal parameter list includes 

• Real parameters (i.e., untyped variables) 

• Typed parameters (i.e., a type indicator followed by a variable name) 

• String parameters (i.e., string variables) 

Array parameters are indicated by a (*) or (*,*) following the variable name to indicate the num- 
ber of dimensions. String parameters are indicated by an optional (*) following the name of a 
simple string variable, or by a required (*,*) following an array string variable name. Parameters 
in the parameter list are separated by commas. 

The expression can be any legal numeric or string expression, and can make use of both parameters 
and other program variables. 



Explanation 

The parameters in a function definition are formal parameters; when the function is called, they 
are replaced by the actual parameters which are passed to the function. All variables used as 
formal parameters are local to the function; that is, they are unrelated to any program variables 
having the same name. The formal and actual parameters are matched according to their position 
in the list. 
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The DEF statement is not executable; the function it defines can be entered only by referring to 
the function name within an expression. 

All parameters are assumed to be real unless the name contains a $ or is preceded by a type indi- 
cator or by another parameter that is typed. Untyped parameters that follow a string parameter 
are treated as real. 



Examples 

10 DEF FNA(A,B) = (A*B)+CA/B> 

The function FNA is type real. The formal parameters A and B are also type real. When called, 
the actual parameters will give values to A and B, the expression ((A*B)+(A/B)) will be evaluated, 
and the result will replace the function name where it appears in an expression. 

20 DEF FNA$(A$,B$)=A$+B$+"STOP" 

The function FNA$ is a string function. The formal parameters A$ and B$ are string variables 
that will be assigned values according to the matching actual parameters in the function call. When 
called, the literal string resulting from the concatenation of the values of A$,B$, and "STOP" will 
replace the function name in the expression where it appears. 

3 0 DEF FNBC INTEGER A, X2 ) = A*X2 + < A/X2 ) 

The function FNB is a numeric function that results in a real value when called. The computations 
will be performed in integer arithmetic because both A and X2 are integers. 
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Multiline Function 



A multiline function is written as several contiguous statements beginning with a DEF statement 
and ending with an FNEND statement. Execution of the function ends when a function RETURN 
statement is encountered; this sends the result value back to the place of call. 

Form 

A multiline function definition has three parts; the function head, the function body, and the 
function end. 

The function head appears as 

DEF function-name( formal parameter list) 
DEF type function-name( formal parameter list) 
DEF string-function-name(formal parameter list) 

The first two forms return numeric values, the third returns a string value. 

All parts of these function definitions are the same as described for one-line functions. 

The function body consists of a sequence of statements, including at least one function RETURN 
statement: 

RETURN numeric expression 
RETURN string expression 

The expression is numeric or string depending on whether the function is numeric or string. For 
numeric functions, the RETURN expression is converted to the type of the function. 

The function end consists of a one-word statement: 

FNEND 

This statement must always be the last statement in the function definition. 
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Explanation 



The body of a function can contain any BASIC/3000 statements with the following restrictions: 

• Local variables except formal parameters must be declared (even if they are type real) using 
the type or DIM statements; they can duplicate the name of other variables because they are 
known only within this function and are created dynamically each time the function is called. 

• A function definition cannot appear within a function body, but function calls are allowed, 
including calls to the same function. 

• The function body must be self-contained; FOR loops and DO-blocks must be completed 
within the body and branches must not occur into or out of the body. 

The formal parameters in a multiline function head are specified in the same way as those in the 
one-line function definition. 



Examples 

In the following multiline function, there are no local variables. It returns a long value. 

100 DEF LOMG FNXCA ,B,I NTEGER X,Y,L0NG M,N t P) 

120 M=A**-Y 

130 N=B**Y 

140 P = M*N 

150 RETURN P 

160 FN END 



The following multiline function definition returns an integer value : 



210 DEF INTEGER FNMCA [*], I NTEGER N> 

215 REM-A (*) IS REAL ARRAY-FNM RETURNS INDEX OF LARGEST ELEMENT 
220 REAL I , J 
23 0 J=l 

240 FOR 1=2 TO N 

250 IF At I ]>A( J] THEN J = I 

2 60 NEXT I 

2 70 RETURN J 

280 FNEND 



The use of the variables I and J are local to the function. It is good practice to define local variables 
within the function definition. 
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The following multiline function returns a string value; its formal parameter is a string variable: 



10 DEF FNR$CA$) 

20 REM..FNRS RETURNS THE REVERSE OF A$ 
30 IF LEN(A$)<=1 THEN RETURN A$ 
40 RETURN FNR$(A$[2 ])+A$t 1 , 1 ] 
50 FNEND 

The functions defined in these three examples and the one-line function definitions in the previous 
set of examples will be called in the examples under Calling A User-Defined Function. 
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Calling a User-Defined Function 



A user-defined function is called by referring within an expression to the function name followed 
by a list of actual parameters in parentheses. The function call is replaced by the value returned by 
the function. 



Form 

A function call has the form: 

function-name( actual parameter list) 
string-function-name( actual parameter list) 

The first form is a numeric function; a real type result is returned unless the name in the function 
definition is preceded by a type specification: INTEGER, LONG, or COMPLEX. The second form 
is a string function and a string result is returned. 

The actual parameter list contains one or more actual parameters separated by commas. An actual 
parameter may be: 

• numeric expression 

• numeric array name followed by (*) or (*,*) 

• string expression 

• string variable name optionally followed by (*) 

• string array name followed by (*,*) 



Explanation 

Actual parameters may be used to pass single values or entire arrays to a function, usually to be 
used within the function although this is not required. Even if parameter values are not needed in 
the execution of the function, at least one "dummy" parameter must be included in the formal 
parameter list of the function definition and in the actual parameter list of the function call. 

The number of actual parameters in the function call must be the same as the number of formal 
parameters in the function definition. The names of corresponding parameters need not be the 
same. Actual and formal parameters correspond according to their positions in the two lists. For 
instance, the third actual parameter in a function call corresponds to the third formal parameter in 
the DEF statement. 
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If the formal parameter is a simple numeric variable (V) then the actual parameter can be a numeric 
expression resulting in a single value, or a simple or subscripted numeric variable (2*V,V,5*7, V(5)). 
If the variables are different types or the actual parameter is an expression, any necessary conversion 
is performed as described in Section IV, Numeric Assignment. 

If the formal parameter is a simple string variable (V$ or V$(*)) the corresponding actual parameter 
must be either a string expression or a simple string variable ("ABC", "X", V$, V$(*), "A"+"B"). 

If the formal parameter is a numeric array (A(*) or A(*,*)) then the actual parameter must also be a 
numeric array of the same type and number of dimensions. No conversion is performed in this 
case. 

If the formal parameter is a string array (A$(*,*)) then the corresponding actual parameter also 
must be a string array. 



Examples 

To call the one-line function: 

10 DEF FNA(A,B) = (A*B)+(A/B) 

the actual parameters are numeric variables of the same type: 

500 LET X=2.57,Y = 7.98 
510 PRINT FNA(X,Y) 
>RUN 
20.8307 

The actual parameters might also be numeric expressions: 

520 PRINT FNA(2 .57, 7.98) 
>RUN 
20.3307 

To call the string function: 

20 DEF FNA$(A$,B$)=A$+B$+ ,, STOP , * 

The actual parameters can be string variables: 

530 X$="0",Y$= M " 

540 PRINT FNA$CX$,Y$) 
>RUN 
OS TOP 

or string expressions: 

550 PRINT FNA$("A" ,*' 1 " ) 
>RUN 
A1ST0P 



6-8 



To call the function FNB returning a real value: 



30 DEF FNB (INTEGER A ,X2)=A*X2+ (A/X2) 



the actual parameters can be variables: 



500 LET X=150,Y=2*35 
510 PRINT FNB (X ,Y ) 
>RUN 
10502 

or integer expressions: 



520 PRINT FNB(500,2.7) 
>RUN 
1666 

Each of the above examples is a one-line function for which a single value is returned. The formal 
parameters are not affected by execution of the function. In a multiline function, the formal 
parameters may be altered in the body of the function. Depending on the type of actual parameter 
passed to the function, the value of the actual parameter may also be affected by the change to the 
formal parameter. 



In the multiline function below, the values of the formal parameters are not changed by execution 
of the function: 



210 DEF INTEGER FNMCAt* 3,1 NTEGER N) 

215 REM-A (*) IS REAL ARRAY-FNM RETURNS INDEX OF LARGEST ELEMENT 

220 REAL I ,J 

23 0 J=l 

240 FOR 1=2 TO N 

250 IF At I ]>A[ J ] THEN J=I 

2 60 NEXT I 

270 RETURN J 

280 FNEND 



To call this function, the actual parameters may be an entire numeric array and a numeric variable: 



300 DIM Xt5] 

305 LET Q=5 

3 10 READ (FOR N=l TO 5 f XI N ] ) 

320 DATA 2732.1 , 765.32, 7905 . 1 , 6543 .89, 195 .72 

330 PRI NT FNM(X[* ],Q) 

RUN 

3 
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or an entire numeric array and a numeric expression: 



300 DIM Xt5] 

310 READ (FOR N = l TO 5 ,X [ N ] ) 

320 DATA 2732.1 , 765.32, 7905 .1 , 6543 .89, 195 .72 

330 PRINT FNM(XI* 1,5) 
>RUN 
3 



The multiline function below returns a string value that is the reverse of the string value input as 
the actual parameter: 



10 DEF FNR $(A$) 

20 REM . . FNR $ RETURNS THE REVERSE OF A$ 
30 IF LEN(A$)<=1 THEN RETURN A$ 
40 RETURN FNR $(A $[2 ] )+A$f 1 , 1 ] 
5 0 FN END 



To call this function, the actual parameter may be a string literal: 

70 PRINT FNR$("ABCDE" ) 
>RUN 
EDCBA 



The actual parameter may also be a string variable: 

60 DIM X$15] 
70 X$: M 12345" 

80 PRINT " FNR $ RETUR NS: " ; FNR$ (X$) 
>RUN 

FNR $ RETURNS: 54321 



PASSING PARAMETERS BY REFERENCE OR BY VALUE 

When the value of a formal parameter may change during execution of the function, the value of the 
actual parameter is affected only if it is passed by reference. If the actual parameter is passed by 
value, then it will not be affected even if the value of the formal parameter is changed. 

Parameters are passed by reference when the actual parameter is: 

• an entire array, string or numeric 

• a simple or subscripted numeric variable matching the formal parameter in type 

• a simple or subscripted string variable without substring designators 

In each of the above cases, a change to the formal parameter value during execution of the function 
also affects the value of the actual parameter. 
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Parameters are passed by value when the actual parameter is : 

• any expression except: a simple or subscripted numeric variable of matching type or a simple 
or subscripted string variable with no substring designators 

• a simple or subscripted numeric variable that differs in type from the corresponding formal 
parameter 

• a simple or subscripted string variable with substring designators 



Regardless of whether the formal parameter value is changed, these actual parameters will not be 
affected. 



Examples 



In the function definition FNX, three formal parameters are affected by execution of the function; 
they are the long variables M, N, and P: 



100 DEF LONG FNXCA ,B,I NTEGER X,Y,L0NG M,N,P) 

120 M=A**-Y 

130 N=B**Y 

140 P = M*N 

150 RETURN P 

1 S0 FNEND 



In the function call, line 520 below, the actual parameters corresponding to M, N, and P are all 
passed by value because they are variables of a different type. These actual parameters are not 
affected when the formal parameters are modified. The actual parameters corresponding to X and 
Y are also passed by value because they are expressions. The actual variables Al and Bl are passed 
by reference being variables matching the formal parameters in type. These variables are not 
changed because their corresponding formal parameters are not altered during execution. 



50 0 LET M1=N1=P1=0 
510 LET A!=8.>B1 = 3 

520 PPINT FNX(A1,B1, 3, 2, M 1 , N 1 , P 1 ) 
530 PPINT M1,N1,P1 
>PUN 

1 . 40 62 5000 0000000L-0 1 

0 0 0 



In the following call, the variables Ml, Nl, and PI, used as actual parameters, are the same type as 
the values of the formal parameters M, N, and P. These actual parameters are, for this reason, 
passed by reference and their values will be set to the values of M, N, and P respectively following 
execution of the function call: 
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500 LONG Ml,Nl,t>l 
510 LET A1=8,B1=3 
520 X1=3,Y1=2 

5 30 opjnt "VALUE OF FNX= "i FNX C A 1 > B 1 , X 1 , Y 1 , M 1 , N 1 ; P 1 ) 
540 PT?INT "M 1 = ";M 1 , "N 1 ="J N 1 
550 np I NT "P1=";P1 
>PT.TN 

VALUE OF FNX= 1 . 406250000000000L- 0 1 

Ml= 1 . 562500000000000L-02 Nl= 9 . 000000000000000L+00 

Pl= 1 . 406250000000000L-0 1 

Note that Ml, Nl, and PI do not have values prior to their use as actual parameters in the function 
call. 

The table below summarizes the relations between actual and formal parameters: 



Actual Parameter 


Formal Parameter 


Attribute 


V, A(e), A(e,e) 


V s 


reference 


V, A(e), A(e,e) 


V d 


value 


e 1 


V 


value 


A(*) 


A(*> 


reference 


A(*,*) 


A(*,*) 


reference 


V$ or V$(*), A$(e) 


V$ or V$(*) 


reference 


V$(e), V$(e,e), V$(e;e) 


V$ or V$( # ) 


value 


A$(e,e), A$(e,e,e), A$(e,e;e) 


V$ or V$(*) 


value 


e$ 1 


V$ or V$(*) 


value 


A$(*,*) 


A$(*,*) 


reference 



V= simple numeric variable name 



V g =simple numeric variable name, same type 

V ( j=simple numeric variable name, different type 

A= numeric array name 

e= numeric expression 

V$=simple string variable name 

A$=string array variable name 

e$=string expression 



not including an expression consisting of V, A(e), A(e,e), V$, V$(*), or A$(e) alone. 
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SECTION VII 
Debugging 



BASIC/3000 provides commands that allow a program to be debugged while it is running. The 
path of execution through a program and the change in value of variables can be traced. The dy- 
namic nesting structure of a program can be displayed; variable values can be displayed and modi- 
fied; tracing can be changed; and the execution sequence can be altered. 

Note that once a program has been saved for RUNONLY (see Section II), it cannot be debugged. 
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TRACE/UNTRACE Commands 



The TRACE command is used to turn on the tracing of selected variables, both simple variables 
and arrays, function references (with or without tracing their local variables), programs called 
with INVOKE or CHAIN, and statements of the current program. UNTRACE turns off tracing. 



Form 

The commands have these forms: 

TRACE [trace element list] 
UNTRACE [trace element list] 

The trace elements are optional and include variables (including those local to functions), functions, 
labels, a range of labels (label-label), and the keyword PROG. 

Variables include simple variables, string variables, string arrays, and numeric arrays. Numeric ar- 
rays are distinguished from simple variables by a (*) or (*,*) following the array name. Examples of 
variables: 

A, B(2) numeric variable 

B$, C$(*) string variable 

C$(*,*) string array 

A(*) one-dimensional numeric array 

A(*,*) two-dimensional numeric array 

Functions can be specified by the function name only or the name followed by a list of local vari- 
ables in parentheses. For example: 

FNA numeric function name 

FNB(A$,B(*)) local string variable and local numeric array; FNB is not traced, only the 
local variables. 

Labels are statement labels consisting of integers in the range 1 through 9999. 

Label-label stands for all statements between, and including the statements identified by the two 
labels. For example: 

80 the statement at label 80 

100-150 all statements between 100 and 150 inclusive 

PROG is a keyword to specify that trace information be printed when a CHAIN or INVOKE is 
performed. 
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Explanation 



The BASIC/3000 Interpreter keeps track of all items specified in TRACE commands. A range of 
labels traces all statements within the range. Any change to a variable's value, any reference to a 
function, or any execution of a statement causes tracing information to be printed. Any change in 
the value of an array element, except in MAT operations, causes that element to be printed. To 
trace a function, only the function name is specified. If a list of local variables is included with the 
function name, changes in their values are traced but not execution of the function. If PROG is 
specified in a TRACE command, information is printed whenever a program is accessed through an 
INVOKE or CHAIN statement and also when returning to an invoking program (see Section X, 
Segmentation). 

TRACE with no parameters lists the items currently being traced. 

UNTRACE turns off tracing of the items specified. When tracing is turned off for a function it is 
not turned off for any local variables. When tracing is turned off for variables individually, it does 
not turn off tracing for the function. For instance, UNTRACE FNA turns off tracing of the func- 
tion but not of its local variables if they were specified in a TRACE command; UNTRACE FNA 
(A$) turns off tracing of the local variable A$ but not of the function FNA. 

UNTRACE with no parameters stops all tracing specified by previous TRACE commands. 

The specified tracing occurs only when the program is executed. When trace output occurs, the 
following information is printed: 

@ label variable = value 
or 

@ programname label variable = value 

These outputs are printed as a result of a trace of a function or variable. 

The programname is printed if the current program has been named. 

*TRACE label 
or 

*TRACE programname label 
These outputs are printed as a result of a trace of a label or labels. 
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Examples 



The program below includes a one-dimensional array, a simple variable, and a function call. This 
program will be used for succeeding TRACE and UNTRACE examples. 



10 


DIM Xt5] 


20 


LET Q = 5 


30 


READ (FOR N=l TO 5,XtNJ) 


40 


DATA 2.5,75.6,36.2, 15.7, 100 


50 


PRINT FND(X[* 1,8) 


210 


DEF FNDCAf* 1,1 NTEGER N) 


220 


REAL I ,J 


23 0 


J = l 


240 


FOR 1=2 TO N 


250 


IF AlIJ>AtJ] THEN J = I 


2 60 


NEXT I 


2 70 


RETURN J 


280 


FNEND 


>TRACE Q,X<*) 


>RUN 





@20 Q = 5 
@30 Xtl 1 = 2.5 
@30 Xt2 1=75.6 
@30 Xt3 1=36.2 
@3 0 Xf 41 = 15.7 
@3 0 Xt5 1=100 



The command TRACE Q,X(*) traces the variable Q and prints its value at line 20. This is the only 
value printed for Q since its value is not subsequently changed. Then the five values of the numeric 
array X(*) are printed with the line at which they assume these values. 

The program output in this case is 5, the result returned by the function FND. 

This trace is turned off by : 

>UNTRACE 

UNTRACE without a trace element list turns off all current traces. 

In the trace below of the function FND and its local variables A(*) and N, the only trace output is 
for the function FND; its local variables are not traced since their values are unchanged by program 
execution. 

>TRACE FND , FND (A (* ) , N) 

>RUN 

@FND 

@270 FND(FND) =5 
5 
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A trace of statement execution is printed when a label or range of labels are used as parameters: 

>TRACE 50,200-230 
>RUN 

♦ TRACE 50 
®FND 

♦ TRACE 220 

♦ TRACE 230 

♦ TRACE 242 
*TRACE 250 

♦ TRACE 260 

♦ TRACE 250 

♦ TRACE 260 

♦ TRACE 250 

♦ TRACE 260 

♦ TRACE 250 

♦ TRACE 260 

♦ TRACE 270 
@270 FND(FND)=5 

5 

♦ TRACE 210 

Because of the FOR statement in line 240, lines 250 and 260 are repeated 4 times. Following exe- 
cution of line 270, control passes to line 50 where the value returned by the function is printed. 
The program then reaches line 210 and halts. 

The command TRACE with no list prints the current trace element list. 
>TRACE 

FND (A [♦ ],N> ,50,200-280. 

Following the UNTRACE command, the TRACE command has nothing to list. 

>U NTRACE 

>TRACE 

> 

The use of TRACE PROG is illustrated by the following segmented programs. ALPHA1 calls pro- 
gram BETA1 which in turn calls GAMMA1. Because the INVOKE statement is used, control re- 
turns to ALPHA1 (see Section X, Segmentation). 
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GAMMA 1 
10 REM 
20 PRINT 



PROGRAM GAMMA 1 
"IN GAMMA 1 RETURN TO BETA 1 



BETA 1 

10 REM PROGRAM BETA 1 

20 INVOKE " GAMMA 1" 

25 PRINT "BACK IN BETA1 RETURN TO ALPHA 1 



ALPHA 1 

10 REM PROGRAM ALPHA I 

20 INVOKE "BETA 1 " 

25 PRINT "BACK IN ALPHA 1 TERMINATE" 



>TRACE PROG 
>RUN 
ALPHA 1 

♦ TRACE, INVOKE: BETA1 

♦ TRACE, INVOKE: GAMMA 1 

IN GAMMA 1 RETURN TO BETA 1 

♦ TRACE, REVERT: BETA I 

BACK IN BETA 1 RETURN TO ALPHA1 

♦ TRACE, REVERT: ALPHA 1 

BACK IN ALPHA 1 TERMINATE 
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BREAK/UNBREAK Commands 



The BREAK command allows the user to specify points where the execution of a program should 
be interrupted (or "broken"). A break point is a label, a range of labels, or any point at which a 
transfer is made from one program to another (through CHAIN, INVOKE, or END). UNBREAK 
turns off break points. 



Forms 

The forms of the commands are: 
BREAK 

BREAK breakpoint list 
UNBREAK 

UNBREAK breakpoint list 

The items in the optional breakpoint list include: label, label-label, and PROG. They are specified 
in the same way as for TRACE. 



Explanation 

BREAK or UNBREAK can be specified before the program is run or when it is broken. When the 
program is run, execution suspends just before execution of a statement whose label is in the break- 
point list. If PROG is specified, execution suspends after a program is brought into the user's work 
area by CHAIN, INVOKE, or END but before the program is run (see Section X, Segmentation). 

When execution suspends as a result of a breakpoint, the statement label about to be executed is 
printed in the form: 

*BREAK label 

*BREAK programname label 
The programname is listed only if the program has been named. 

After this output, a > is printed to indicate that a command can be entered. The legal commands 
during a break period are listed below. 

Execution is resumed with the RESUME or GO command. 

BREAK with no parameters causes all the current breakpoints to be listed. 

UNBREAK with no parameters deletes all current breakpoints. With parameters, UNBREAK de- 
letes those breakpoints specified by the labels in the breakpoint list. 
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LEGAL COMMANDS DURING BREAK 

Certain commands may be used only during a break period: 

ABORT 
CALLS 
FILES 
GO 

RESUME 

SET 

SHOW 

These commands are described in this section. 

Of the remaining commands, only these are legal during a break period: 

BREAK/UNBREAK 

CATALOG 

CREATE 

DUMP 

EXIT 

KEY 

LENGTH 

LIST 

SPOOL 

SYSTEM 

TRACE/UNTRACE 
XEQ 

If the user enters any other command, BASIC/3000 responds: 

ILLEGAL WHILE RUN SUSPENDED. DO YOU WANT TO ABORT? 

The user enters anything starting with "Y" to abort the current program and carry out the com- 
mand, or enters anything else not to abort the program and to ignore the command. 

During a break period, the user can type ABORT to terminate his current run and return to BASIC 
command mode where all commands are legal. 
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The commands SCRATCH and GET (illegal during a break period) will clear all traces and break- 
points. RUN programname will also clear traces and breakpoints, but a RUN without the program- 
name parameter will not. 

The CHAIN and INVOKE commands clear traces and breakpoints except when PROG is used. 
INVOKE saves traces and breakpoints and restores them upon return to the invoking program. 



Examples 



10 DIM A[5,10] 
20 MAT READ A 

30 DATA 10,20,30,40,50,100,200,300,400,500 
40 DATA 110,120,130,140,150,210,220,230,240,250 
50 DATA 310,320,330,340,350,410,420,430,440,450 
60 DATA 510,520,530,540,550,610,620,630,640,650 
70 DATA 710, 720,730, 740, 750,810,320,330,340,350 
80 RESTORE 50 

90 READ (FOR X = l TO 3, (FOR Y=l TO 10,AIX,Y))) 
100 END 
>BREAK 30,100 
>RUN 

♦BREAK 30 

>SHOW A(1,1),A(5,10) 

At 1 , 1 1=10 

A{5, 10 1=850 

>G0 

♦BREAK 100 

>SHOW A(1,1),A(5,10) 

AC1 ,11=310 

At 5, 10 ] = 850 

>U NBREAK 

>AB0RT 



During the breakpoints, the command SHOW (described later in this section) causes the values of 
the specified elements to be printed. After the program has run with two breakpoints at line 30 
and 100, the breakpoints are deleted with UNBREAK. ABORT is used to return the user to the 
BASIC command mode. He may then run the program without breakpoints. 

In the example below, the same program is named BRK1 and then run with the same breakpoints. 
The breakpoints are listed with BREAK during the second breakpoint and then deleted individual- 
ly. GO finishes execution of the program after which the user is returned to BASIC command 
mode and runs the program without breakpoints: 
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10 DIM At5,10] 

20 MAT READ A 

30 DATA 10,20,30,40,50,100,200,300,400,500 

40 DATA 110,120,130,140,150,210,220,230,240,250 

50 DATA 310,320,330,340,350,410,420,430,440,450 

60 DATA 510,520,530,540,550,610, 620,630,640,650 

70 DATA 710,720, 730,740, 750,810,820,830,840,850 

80 RESTORE 50 

90 READ (FOR X=l TO 3, (FOR Y=l TO 10,A[X,Y]>> 

100 END 



>NAME BRK1 
>BREAK 30,100 
>RUN 
BRK1 

*BREAK BRK1 30 
>SHOW A (1 , 1 ) 
At 1 , 1 1 = 10 

>GO 

♦BREAK BRK1 130 

>SHOW Ad ,1) 

At 1 , 11=310 

>U NBR EAK 100 

>BREAK 

30. 

>U NBR EAK 
>GO 

>RUN 
BRK1 
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ABORT Command 



The ABORT command is legal only during a break period; it terminates the suspended program 
and returns the user to a normal state where all commands are legal. 



Form 



ABORT 



Explanation 

When ABORT is specified, the break period is ended and the run terminated. The user can now 
enter any command legal during normal BASIC execution, but cannot enter the commands legal 
only during a break period. 



Examples 



10 DIM A[ 5, 12 ] 
20 MAT READ A 

30 DATA 10,20,30,43,50,100,200,300,403,500 
40 DATA 113,120,133,140,150,210,220,230,240,250 
50 DATA 310,320,330,340,350,413,420,430,440,450 
S0 DATA 510,520,530,540,553,610,620,630,640,653 
70 DATA 713, 720, 732, 743, 750, 310,320,833,343,853 
80 RESTORE 50 

90 READ (FOR X=l TO 3, (FOR Y= 1 TO 13,A[X,Y])) 
120 END 
>BREAK 30,100 
>RUN 

*BREAK 30 
>SH0W A (5, 1 0) 
AC 5 , 1 3 3-85 0 
>AB0RT 
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RESUME or GO Command 



The RESUME command ends the interactive debugging mode and resumes the suspended program. 
This command is legal only during a break period. GO may be used instead of RESUME; there is 
no difference between them. 



Form 

RESUME 
RESUME label 
GO 

GO label 



Explanation 

A RESUME by itself restarts the program at the location printed when the program break occurred. 
A RESUME with a label restarts execution at that location, unless that location transfers into or out 
of a function from the current location. 

The label parameter for RESUME or GO is not allowed when the break occurs as a result of press- 
ing CTRL Y. RESUME or GO without a label may be used to resume suspended operation as a 
result of a CTRL Y break. 



Examples 

Using the same program, a breakpoint is specified for line 30 where the array A is displayed. During 
this break another breakpoint is specified for line 100 and then the suspended program is resumed 
at line 80 (RESUME 80). At the next breakpoint, array A is again displayed. GO is typed after 
the final breakpoint to complete execution of the program: 
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10 DIM A[5,10] 
20 MAT READ A 

30 DATA 10,20,30,40,50,100,200,300,400,500 
40 DATA 110,120,130,140,150,210,220,230,240,250 
50 DATA 310,320,330,340,350,410,420,430,440,450 
60 DATA 5 10,520,530,540,550,610, 620, 630, 640, 650 
70 DATA 710, 720, 730, 740, 750,810, 820,830,840,850 
80 RESTORE 50 

90 READ (FOR X = l TO 3, (FOR Y=l TO 10,AtX,Y3)) 
100 END 

=BREAK 30 
>RUN 

♦BREAK 30 

>SHOW A(1,1),A(3,10),A(5,10) 

A[ 1 , 1 3=10 

At3, 101=450 

At5, 10 ]=850 

>BREAK 100 

>RESUME 80 

♦BREAK 100 

>SHOW A(1,1),A(3,10),A(5,10) 
A[ 1 , 13=310 
A[3,10 3=850 
At 5 , 10 3 = 850 

>GO 



> 



Note that GO 80 could have been used instead of RESUME 80, and RESUME instead of the final 
GO with no effective change to this example. 
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SHOW Command 



The SHOW command prints the values of the items specified; this command is legal only during 
a break period. 



Form 

The form of SHOW is 
SHOW item list 
The list can include : 

• variables (numeric or string) 

• array elements 

• entire arrays (name (*) for one-dimensional array or name (*,*) for two-dimensional array) 

• local variables (function name (variable list)) 



Explanation 

An array is printed as in the MAT PRINT statement (see Section III), except that undefined values 
are noted with the word UNDEFINED. The variable list in parentheses that follows a function 
name can include only local variables of that function. The function must be active; that is, the 
function must have been called and not be completed. 



Examples 

The example below specifies breakpoints for line 20 and lines 70 through 90. Since line 80 is not 
executed, breaks actually occur in lines 70 and 90. SHOW commands are used to print the con- 
tents of the variable X$ at the break in line 70 and the contents of the local variable A$ in function 
FNR$ at the break in line 20. At the break in line 90, an attempt is made to show the contents of 
the non-existent array and of an existing array that has not been given any values. A new break- 
point at line 100 is specified where the SHOW command is used to print the previously undefined 
array B. GO continues execution of the program until it ends. 
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10 DEF FNR $(A $) 

20 IF LENCA$)<=1 THEN RETURN A$ 
30 RETURN FNR$(A$t2 ])+A$[ I , 1 ] 
40 FNEND 

50 DIM X$15],Bt2,51 
60 X$="12345" 

70 IF FNR$<X$) = ,, 5432^ , THEN PRINT "YES" 
80 ELSE PRINT X$ 
90 MAT READ B 
100 DATA 10,20,30,40,50,60, 70,80, 90, 100 
110 END 
>BREAK 20,70-90 
»RUN 

♦BREAK 70 
>SHOW X$ 
X$=" 12345" 
>G0 

♦BREAK 20 
>SHOW FNR$(A$) 
FNR$:A$=" 12345 M 
>U NBREAK 20 
>G0 
YES 

♦BREAK 90 
>SHOW AC*) 
A DOES NOT EXIST 
>SHOW B(*,^) 
B(* ] 

UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED 

UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED 

>BREAK 100 
>GO 

♦BREAK 100 
>SHOW B( + , + ) 
Br* ] 

10 20 30 40 50 

60 70 80 90 100 
>GO 
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SET Command 



The SET command allows the user to set any variable to a constant value; this command is legal 
only during a break period. 



Form 

The form of the SET command is 
SET item = constant 

The items to be set can include variables and array elements and local variables, specified as in the 
SHOW command, except that the form using asterisks may not be used. 



Examples 



10 


DIM X(5] 


20 


MAT READ X 


30 


DATA 2 73.1 , 765.3, 795. 1 ,654 .9, 195 .7 


40 


PRINT FND(X[*1,5) 


50 


END 


210 


DEF FND(At* ], INTEGER N) 


220 


REAL I , J 


23 0 


J = l 


240 


FOR I -2 TO N 


250 


IF AtI]>A[J] THEN J=I 


2 60 


NEXT I 


270 


RETURN J 


280 


FNEND 


>BREAK 3 0 


>RUN 





♦BREAK 30 



>SH0W X(l) 
Xtl )=273 .1 
>SET X<1) = 950.2 
>SH0W XC1) 
XI 1 1=950.2 
>G0 
1 



The result of the program is changed by setting the first element in the array X to a higher value 
than the other elements. 
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When the break points are removed, the program runs with the data read from the DATA state- 
ment in line 30: 



>U NBREAK 
>RUN 
3 
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FILES Command 



The FILES command is legal only during a break period. It prints a list of all the files that are cur- 
rently open in the executing program. The list is by name and internal file number (see Section 
VIII, Files). 



Form 

FILES 



Explanation 

When FILES is typed during a break, a list of the file numbers specified by the FILES statement 
in the executing program is printed. The numbers are in ascending order and each is followed by a 
file name if the file is open, by an asterisk if the file number is reserved but not yet open, or by 
#n where n is the file number of a file opened in another program that called the current program 
with INVOKE. The file name of an open file is qualified by the group name and account name. 



Examples 



In the first example, FILES specified in the break at line 30 shows four open files. The break at 
line 40, after the ASSIGN statement closed file number 5, shows only three files currently open: 

10 REM PROGRAM ONE 

20 FILES A,B,*,C,D 

30 ASSIGN *,5 

40 END 
>BREAK 30 
>RUN 

♦BREAK 30 
>FILES 

1 A.BASIC. LANG 

2 B.BASIC. LANG 

3 * 

4 C.BASIC. LANG 

5 D.BASIC. LANG 
>BREAK 40 

>G0 

♦BREAK 40 
>FILES 

1 A.BASIC. LANG 

2 B.BASIC. LANG 

3 * 

4 C.BASIC. LANG 

5 * 
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In this example, program FIRST calls program SECOND with INVOKE. BREAK PROG is used 
to specify a breakpoint when control goes to SECOND and again when control reverts to FIRST. 
In SECOND, three local files are open, one of which is internal file #2 or the file B. It also shows 
the internal files A and B that were opened in FIRST and remain open following the INVOKE. 
The FILES command at the break upon return to FIRST shows that only the two files local to 
FIRST are open and that file #3 has been reserved: 



SECOND 

10 REM PROGRAM SECOND 

20 FILES C,#2,D 
30 END 

FIRST 

13 REM PROGRAM FIRST 

20 FILES A,B,* 

30 INVOKE "SECOND" 
>BREAK PROG 
>RUN 
FIRST 

♦BREAK, INVOKE: SECOND 
>FILES 

1 A. BASIC. LANG 

2 B.BASIC. LANG 

3 * 

4 C.BASIC. LANG 

5 #2 

6 D.BASIC. LANG 
LOCAL FILES START AT 4 
>G0 

♦BREAK, REVERT: FIRST 
>FILES 

1 A. BASIC. LANG 

2 B.BASIC. LANG 

3 * 
>G0 



> 
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CALLS Command 



The CALLS command is legal only during a break period. It prints a list of all functions that have 
not been completed, and of all programs that have been called with INVOKE but have not been 
completed by END. This list is in reverse chronological order starting with the most recent. 



Forms 



CALLS 



Examples 

At the breakpoint for statement 40, the CALLS command shows that function FNN called FNM. 
Note that functions are listed in reverse chronological order: 



PR0G1 

10 DEF FNM (A ,B)=SGN(A )* FNN (ABS (A ) , ABS (B ) ) 

20 DEF FNNCA ,B) 

30 X=A-I NT(A/B)*B 

40 RETURN X 

50 FNEND 

60 PRINT FNM(-4,3> 
>BREAK 40 
>RUN 
PR0G1 

♦BREAK PROG I 40 

>CALLS 

FNN 

FNM 
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In the following example, ALPHA2 uses INVOKE to call BETA2; BETA2 uses CHAIN to call 
GAMMA2. Because GAMMA2 returns to ALPHA2, not BETA2, a CALLS command entered 
during the break in GAMMA2 shows that ALPHA2 invoked GAMMA2: 



GAMMA2 

10 REM PROGRAM GAMMA2 

20 PRINT "IN GAMMA2 -- RETURN TO ALPHA2* 



BETA2 
10 REM 
20 CHAIN 



PROGRAM 
GAMMA2" 



BETA2 



ALPHA2 

10 REM 

20 INVOKE 

25 PRINT 
>BREAK PROG 
>RUN 
ALPHA2 
♦BREAK, 
>G0 

♦BREAK, CHAIN: GAMMA2 
>CALLS 

INVOKED BY ALPHA2 



PROGRAM ALPHA2 
"BETA2 " 

BACK IN ALPHA2 TERMINATE* 



INVOKE: BETA2 
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Each of the following three programs contains at least one function definition and function call. 
Function FNA in program ALEF1 calls FNB wherein ALEF1 calls BET1 with an INVOKE state- 
ment. At the breakpoint in line 40 of GIMEL, function FNE calls FNF. The CALLS command 
entered during the breakpoint in GIMEL shows a complete history of all nested function calls and 
INVOKE statements in reverse chronological order: 



GIMEL 

10 REM PROGRAM GIMEL 

20 DEF FNE(X)=FNF(X> 

30 DEF FNF (X) 

40 PRINT "IN GIMEL" 

50 RETURN 0 

60 FNEND 

70 X=FNE(4) 

BET 1 

10 REM PROGRAM BET 1 

20 DEF FNC(X) 

30 INVOKE "GIMEL" 

40 RETURN 0 

60 FNEND 

70 X=FNC(3) 



ALEF 1 

10 REM PROGRAM ALEF 1 

20 DEF FNA(X)=FNBCX) 

30 DEF FNB (X) 

40 INVOKE "BET 1 " 

50 RETURN 0 

60 FNEND 

70 X=FNA<2) 
>BREAK PROG 
>RUN 
ALEF1 

♦BREAK, INVOKE: BET1 
>G0 

♦BREAK, INVOKE: GIMEL 

>BREAK 40 

>G0 

♦BREAK GIMEL 40 

>CALLS 

FNF 

FNE 

INVOKED BY BET 1 
FNC 

INVOKED BY ALEF 1 

FNB 

FNA 
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WAIT Command 



The WAIT command impends the BASIC Interpreter with the PAUSE intrinsic for a specified period 
of time. The command has the following form: 

WAIT timel [,time2] 

where "timel" and "time2" have the following form: 

[[hours:] minutes:] seconds 

"seconds" may be a floating-point value; it must be less than 60 if "minutes" is present. "Minutes" 
and "hours" must be integral values. "Minutes" must be less than 60 if "hours" is specified. 

If only "timel" is specified, the Interpreter suspends for the indicated period of time. If "time2" is 
also specified, the Interpreter suspends for a random time period between "timel" and "time2". 
This command is useful for scheduling events during a benchmark. 

WARNING: This command cannot be terminated with control- Y. 
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SECTION VIII 
Files 



For problems that require permanent data storage external to a particular program, BASIC/3000 
provides a data file capability. This capability allows flexible, direct manipulation of large volumes 
of data stored on files. 

There are three types of files used in BASIC/3000: formatted files, binary files, and ASCII files. 
Formatted files are created and accessed through the BASIC/3000 Interpreter. Binary and ASCII 
files are created in MPE/3000 but can be accessed with BASIC/3000. 

A catalog of ASCII and binary files, as well as of formatted files in the user's group library, can be 
requested with the BASIC/3000 CATALOG command (see Commands, Section II). 



BASIC FORMATTED FILES 

A formatted BASIC/3000 file is created under control of the BASIC/3000 Interpreter. It contains 
format words to indicate the type of the data items in the file. These format words are placed in 
each record automatically by the Interpreter (see Appendix H for formatted file structure). 
Formatted files allow run-time checking of the type of each data item. 

BASIC formatted files are created with the CREATE command or statement. They may be accessed 



BINARY FILES 



Binary files are unformatted files created through the MPE/3000 Operating System. Data items are 
stored in binary files as binary words without type information. When data is read from a binary 
file, it is assumed to be the type of the variable into which it is being read. Items in binary files can 
cross record boundaries and new records are used only upon overflow. 

All file statements except ADVANCE, UPDATE, File LINPUT, and CREATE can be used with 
| binary files. Access to binary files is discussed under Binary File Access in this section. 



FILE NAME 

When any file is created, whether it is ASCII, binary, or BASIC formatted, it is assigned a file name 
by the user who creates the file. The file name may contain up to eight alphanumeric characters, 
the first of which must be a letter. The file name may be fully qualified as follows: 

file name [ /lockword] [.group name [.account name] ] 

If a lockword was specified for the file at its creation, this same lockword must follow the file name 
when the file is accessed. 

The group name and account name specify a group and account other than those under which the 
user logged on. If the file is part of the user's group and account, then these qualifiers may be 
omitted. 

The unqualified file name specifies a file in the user's log-on group and account that is not restricted 
by a lockword. 

Refer to the HP 3000 Multiprogramming Executive Operating System Reference Manual (03000- 
90005A) for details of the file name specification. 
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Creating a Formatted File 



A formatted file can be created by the CREATE command or through the CREATE statement. 
CREATE allocates a file of a specified size, assigns a name, and initializes each record with an 
end-of-file mark. Both the record size and the number of records can be specified. Neither of these 
sizes can be changed later. 

Form 

CREATE command: 

CREA TE file name, file length 

CREATE file name, file length, record size 

file name is a simple string without quotes. The file length is an integer constant. The optional 
record size is an integer constant. 

CREATE statement: 

CREATE numeric variable, file name, file length 

CREATE numeric variable, file name, file length, record size 

The numeric variable is used to return a result about the status of the file. File name is a string 
expression, file length is an integer expression, and the optional record size is also an integer 
expression. 

Explanation 

The file name may be fully qualified by a lockword, group name, and/or account name. 
The file length specifies the number of records to be allocated to the file. 

The record size specifies the number of data words per record. Record size may be between 4 and 
319 words; the default size is 106. The most efficient record sizes are 106, 212, and 319. Record 
size is the number of words needed by the user to contain his data; the BASIC/3000 Interpreter 
adds format words to each record (see Appendix H). 

The numeric variable contains one of the following results when the CREATE statement is executed: 

0 successful file creation 

1 a file already exists with the same name 

2 the file was not created for some reason other than a duplicate name 
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An error message will be printed if the CREATE command cannot create the specified file name 
because of a duplicate name or some other reason. 

CREATE does not open the file for access. Files are opened with a FILES or an ASSIGN statement 
(see Opening Files, this section). 



EXAMPLES: 



>CREATE AFILE.30 



10 DIM B$[4] 










20 LET B$="BB" 










30 CREATE N2, M BFILE M ,15, 


212 








40 CREATE N3, M XFILE" ,20 










50 CREATE N4, M AA'\15 










60 CREATE N5>B$, 15 










70 CREATE N6,"DFILE",20 










80 CREATE N7, M FF2 , ',20 










90 CREATE N8,"XX",10 










100 PRINT "N2 = M ; N2,"N3 = "; 


N3, M 


N4 = 


N4,"N5 = ' 


•;N5 


110 PRINT " N6="; N6,"N7="; 


N7," 


N8= 


H |N8 




>RUN 










N2= 0 N3= 0 




N4= 


1 


N5 = 


N6= 0 N7= 0 




N8= 


0 





Eight files are created, the file AFILE with a CREATE command, the remainder with CREATE 
statements. All but BFILE have the default record size 106; records in BFILE have 212 data words. 

In this run, the value of N4 is 1 indicating that a file name AA already exists. 

Note that the file name in the CREATE command is an unquoted string; in the CREATE state- 
ments, the file name may be a string expression such as a quoted string or a string variable. 
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Purging a File 



An ASCII, binary, or BASIC formatted file can be deleted from the system with a PURGE command 
or PURGE statement. 

Form 

PURGE command: 

PURGE file name 
where file name is a simple string without quotes. 

PURGE statement: 

PURGE numeric variable, file name 

The numeric variable will contain a result following execution of the PURGE statement. The file 
name is a string expression. 



Explanation 

The file specified in the statement or command is purged and is not recoverable. 

The numeric variable in the statement returns a result on the status of the purge operation : 

0 successful purge 

1 file is being accessed and cannot be purged 

2 user is not permitted to purge this file 

3 there is no such file 



EXAMPLES: 

>PURGE AFILE 

10 PURGE N, M BFILE" 
20 PRINT N 
>RUN 
0 

A PURGE command is used to purge AFILE, a PURGE statement to purge BFILE. The result of 
purging BFILE is printed. Since it was a successful purge, the result is zero. If the PURGE command 
had been unsuccessful, a message would have been printed. 
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Opening Files 



In order for a program to access a file, the file must be open. For every file that is to be opened, an 
association is established between the file number used in access statements and the file name. The 
file number is an integer between 1 and 16. The file name of a BASIC/3000 formatted file is the 
name assigned with a CREATE command or statement. The file name of an ASCII or binary file is 
the name assigned when the file was created under MPE/3000 control (see MPE/3000 Operating 
System Manual for instructions). 

The linkage between file name and file number is accomplished by one of two statements: the 
FILES statement or the ASSIGN statement. FILES causes file numbers to be assigned to the files 
and, if a file name is specified, the file is opened. ASSIGN associates a file name with a file number 
reserved by FILES but not named. It opens a file not previously opened by FILES. 

FILES is a declarative statement, not a dynamic statement. This means that it is not executed but 
is processed before the run begins. It may appear anywhere in the program. 

ASSIGN, on the other hand, is a dynamic statement. It is executed during the program run and its 
position affects program execution. If ASSIGN is used to open a file, it must be executed before 
any statements used to access that file. 

Note: Readers with experience using HP 2000 Time Shared Basic may be 
confused by the use of the term open as used for the BASIC/3000 
Interpreter. OPEN for 2000 Time Shared Basic is equivalent to 
CREATE for BASIC/3000. 

CLOSING FILES 

All files are closed automatically upon program termination. A file may be dynamically closed 
during program execution with the ASSIGN statement. This should be done wherever practical to 
release buffer space for other files. 
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FILES Statement 



Every file that is to be accessed must have a file number designated in a FILES statement. Each 
file designator reserves a file number starting with number 1. Up to 16 file numbers may be 
reserved for any run. If the file designator names a file, the file will be opened. 



Form 

FILES file designator list 

One or more file designators may be specified, separated by commas if more than one. A file 
designator may be one of the following: 

file name 
# integer 

The file name identifies an existing file created with the CREATE command or statement, or an 
ASCII or binary file created in MPE/3000. It may be fully qualified. 

The * reserves a file number for a file that will be named and opened with an ASSIGN statement. 
#integer specifies the internal file number equivalent to an existing file number. 



Explanation 

File designators are associated with file numbers in the order in which they appear in the FILES 
statement. The first is assigned file number 1, the second file number 2, and so forth. If there is 
more than one FILES statement, file numbers are reserved starting with the first FILES statement. 

When a file name is specified, the file is opened and the program is given both read and write access 
to the file unless the file is already open in some other program. In this case, only read access is 
allowed and a warning message will be printed at execution time. If the file cannot be opened, the 
program terminates. 

When the program that opened a file terminates, the file is closed. If the program had read and 
write access to the file, the write restriction is removed. This enables the next program opening 
the file to have both read and write access. 
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When an asterisk (*) is used instead of a file name, the file number is reserved but the file to be 
associated with that number is not specified. The ASSIGN statement must be used to associate a 
file name with the file number. ASSIGN must be specified before any reference is made to the 
file number. 

If # integer is used instead of a file name, it specifies an internal file number. This number identifies 
a file declared with a FILES statement in another program when programs are segmented. (See 
Section X, Segmentation.) 

The FILES statement is declarative, not dynamic; it may appear anywhere in a program and is 
not executed. 



EXAMPLES: 

10 FILES AFILE, BFILE ,* 

20 FILES AA,BB,*,*,* 

30 FILES #S 



Five files are specified in the three FILES statement. The formatted files AFILE and BFILE have 
file numbers 1 and 2 respectively. Files AA and BB have file numbers 4 and 5 respectively. 

The files reserved for numbers 3, 6, 7, and 8 must be assigned names in an ASSIGN statement 
before they can be accessed. 

The file associated with local file number 9 in statement 30 has been previously associated with 
internal file number 6. For the relation between internal and local file numbers, see Files and 
Segmentation in Section X, "Segmentation". 
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ASSIGN Statement 



The ASSIGN statement is used to assign a file name to a file number reserved by FILES and open 
the file. If another file was associated with the file number, that file is closed. The result of the 
open operation is returned following execution of ASSIGN. Unlike FILES, the ASSIGN statement 
is executed. 



Form 

The forms of ASSIGN are 

ASSIGN file name, file number, numeric variable 
ASSIGN file name, file number, numeric variable, mask 
ASSIGN file name, file number, numeric variable, restriction 
ASSIGN file name, file number, numeric variable, mask, restriction 
ASSIGN * file number 

The file name is a string expression; the file number is an integer expression with a value between 1 
and 16. The numeric variable returns the result of the ASSIGN execution. The optional mask is a 
string expression used to encode or decode file data. The optional restriction is a two-letter code 
to specify any access restrictions on the file. 



Explanation 

In the first four forms, the file name is associated with the file number and the file is opened. 

If an * is used instead of the file name, any file previously associated with the file number is closed. 
If the file is already closed, the statement is ignored. Since closing a file releases the buffer space 
that was allocated to it, it is good practice to close unneeded files. 

An error results if the specified file number exceeds the number of positions in the program's 
FILES statements. 
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After ASSIGN is executed, a value is returned to the numeric variable: 



0 file is available for read and write 

1 file is available for read only 

2 (unused) 

3 the file does not exist or is not accessible 

4 (unused) 

5 no buffer space is available for the file 

6 file is not available for read or write because of another user's current access 

7 specified restrictions not possible 

8 file is available for write only (applies to "write-only" files, such as those directed 



to a line printer). 

If the value returned is 3, 5, 6, or 7 the file is not opened and any access to the file number causes 
a fatal error. If the returned value is 1 any attempt to print onto the file causes a terminal error. 
If the returned value is 8, any attempt to read the file causes a terminal error. Other references 
to the file assigned that file number are legal. 

A mask, if specified, protects the data in a file. Whenever the file is assigned the same mask should 
be used, or the data will not be intelligible when read. The actual data is scrambled or unscrambled 
using the mask; the data types and the end-of-file or end-of-record marks are not affected. 

The restriction may be one of the following: 

Code Meaning 

RR Read and Write Restriction - no other user can access the file 

WR Write Restriction - other users may read, but not write on, the file 

WL Write Restriction with Dynamic Locking - current user has option to lock 
file ; other users may read only 

NR No Restriction - current user does not have the option to lock file; other users 
can read from and print on the file 

NL No Restriction with Dynamic Locking - no restriction but user has option to 
lock the file 

RD Read Access Only - current user may read from, but not write on, the file; 

current user does not have option to lock file; other users can read from and 
print on the file 

RL Read Access Only with Dynamic Locking - current user may read from, but not 
write on, the file; no restriction but user has option to lock the file 

If the restriction is omitted, the file is opened with WR restriction. If this fails, the NR restriction 
is used. 

Ths specified restriction is placed on the file and remains in effect as long as the file is open. If 
another restriction is in effect due to a concurrent access, the ASSIGN statement will return the 
result 6, and the file is not opened. 
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Examples 



10 


FILES AFILE,BFILE t * 




20 


FILES AA ,BB ,*,*,* 




30 


ASSIGN "XFILE",3,X1 


,WR 


40 


ASSIGN - DF1LE",6,D1 


,RR 


50 


ASSIGN "FF2" » 7, N , NL 




60 


LET X$="X" 




70 


ASSIGN X$,8,X,"ABZ1 


ti 


80 


PRINT X1,D1,N,X 




90 


ASSIGN *,8 




100 


ASSIGN "CC",l,CI 




110 


PRINT CI 




>RUN 






0 


0 




0 







Files are assigned for each file number associated with an * in the FILES statements. A write 
restriction on XFILE prevents other users from writing on that file. A read and write restriction 
on DFILE prevents other users from having any access to that file. File FF2 can be locked and 
unlocked with the dynamic locking statements LOCK and UNLOCK; there are no access 
restrictions on FF2. 

The Mask "ABZ1" is used to encode the data in file X. File X is closed in line 90. 

In line 100, AFILE is closed and file CC is assigned file number 1 and opened. 

The zeros in the numeric variables indicate that each file was available for reading and writing in 
the current run when it was opened. 

The following example shows the values returned from an ASSIGN on the same file during the 
same program versus an ASSIGN on the same file from two different programs. 



Same Program 



2nd 
\ASSIGN 
















1st X. 
ASSIGN X. 


RR 


WR 


WL 


NR 


NL 


RD 


RL 


RR 


6 


6 


6 


6 


6 


6 


6 


WR 


7 


7 


7 


0 


3 


1 


3 


WL 


7 


7 


7 


3 


0 


3 


1 


NR 


7 


7 


7' 


0 


3 


1 


3 


NL 


7 


7 


7 


3 


0 


3 


1 


RD 


7 


0 


3 


0 


3 


1 


3 


RL 


7 


3 


0 


3 


0 


3 


1 



Different Programs 



2nd 
\ASSIGN 
















1st 

ASSIGN N. 


RR 


WR 


WL 


NR 


NL 


RD 


RL 


RR 


6 


6 


6 


6 


6 


6 


6 


WR 


7 


7 


7 


1 


3 


1 


3 


WL 


7 


7 


7 


3 


1 


3 


1 


NR 


7 


7 


7 


0 


3 


1 


3 


NL 


7 


7 


7 


3 


0 


3 


1 


RD 


7 


0 


3 


0 


3 


1 


3 


RL 


7 


3 


0 


3 


0 


3 


1 
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File Access 



There are two types of access to a file: serial and direct. For serial access, the items read or written 
immediately follow the previous access without concern for the underlying record structure. A 
pointer associated with each open file always points to the next item in the file to be accessed. 

For direct access, a particular record is specified at which the access begins. In this case, the pointer 
is moved to the beginning of this record. 

In BASIC/3000 formatted files, direct and serial access can be combined in the same file. It is 
possible, for instance, to position the pointer to the beginning of a record with a direct file state- 
ment, and then to access the file serially from that point. 

Binary files may be accessed directly only if they are disc files with fixed length records. Otherwise, 
serial access must be used for binary files (Binary File Access, this section). 

ASCII files may be accessed by serial or direct access. For a complete description of the restrictions 
on ASCII file access, see ASCII File Access in this section. 
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Serial File PRINT 



The Serial File PRINT statement writes data items on a file, starting at the current position of the 
pointer. The items may be numeric or string expressions. 

Form 

The forms of a Serial File PRINT statement are: 

PRINT # file number; print list 
PRINT # file number; print list, END 
PRINT # file number 
PRINT #file number; END 

The print list is a series of numeric and/or string expressions. The rules for specifying the list are the 
same as those described for the PRINT statement in Section II. 

If the print list is omitted, the statement is ignored unless the file is an ASCII file in which case, a 
line is skipped as in a PRINT statement. 

Optionally, END can be the last (or only) item in the print list; it writes an end-of-file mark. 
Explanation 

Each item in the print list is written on the file in the order it appears in the Serial File PRINT 
statement. The items are written starting at the position where the pointer currently appears over- 
laying whatever data may be in that position in the file. Record boundaries are ignored; a serial 
PRINT can start in the middle of one record and end in the middle of another. Each data item 
must, however, fit into a single record. 

An embedded linefeed or a carriage return character splits a record in an ASCII file and causes them 
to be written out as separate records. However, these characters are not included in the printed 
records. 

The File READ statement cannot distinguish between the different items on an ASCII file in the 
absence of commas, especially if the values are numeric. Therefore, when using a Serial File PRINT 
statement to write to an ASCII file, the data items should be separated by printing "," (or, alterna- I 
tively, using the File LINPUT statement, followed by the CONVERT statement) because the Serial 
File PRINT statement does not write commas. 

If END is the last item in the print list, an end-of-file mark is written after the last data item. When 
an attempt is made to read the end-of-file, an end-of-file condition occurs. If data is written 
immediately following the END, it overlays the end-of-file mark. If END is not specified, an 
end-of-record mark is written after the last data item. This is also overlaid by a subsequent PRINT. 
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If printing is attempted beyond the physical end of the file, an end-of-file condition occurs. The 
ON END statement, described in this section, specifies action to be taken when an end-of-file 
condition occurs. If it is not specified, the program terminates. 

The file MARGIN statement (described in this section) can be used together with the PRINT # 
statement in order to change the length of the print line for an ASCII file. 

Examples 

10 FILES AFILE,BFILE t * 
20 FILES AA ,BB ,*,*,* 
25 DIM A$f5] 
30 DIM B[2,5] 
40 MAT READ B 

50 DATA 100,200,300,4*30,500, 600,700,800,930,1000 
60 LET A$="ABCDE" 

70 PRINT # 1 ; "ARRAY B",(FCR 1=1 TO 2, (FOR J= 1 TO 5,BI1,J])),E 
30 PRINT #2; A $,B[ 2 , 1 1,B( 1 ,5 ] 
90 PR I NT #2; END 
100 PRINT #1;"END OF ARRAY" 
>RUN 

>DUMP AFILE 
ARRAY B 

100 

200 

300 

400 

500 

600 

700 

800 

900 

1000 
END OF ARRAY 
>DUMP BFILE 
ABODE 

600 

500 



The string expression "'ARRAY B" followed by the entire contents of array B are written onto file 
number 1 (AFILE). An end-of-file mark is written following the last data item. 

In line 80, the contents of the string variable A$ followed by the contents of two elements of array 
B are written on file number 2 (BFILE). Line 90 writes an end-of-file mark on BFILE. 



Line 100 overlays the end-of-file mark previously written on AFILE with the string expression 
"END OF ARRAY". Since the END is omitted, an end-of-record mark is automatically written 
after the string expression. 

Although record boundaries are ignored in a serial print, no item can be longer than a single record. 
The record size of AFILE was created as 106 words and BFILE as 212. Each number requires one 
to four words depending on type, and a string requires a word for approximately every two charac- 
ters (see Appendix H, "File Structure" for exact requirements). 
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Serial Fife READ 



The Serial File READ statement reads items from a file specified by file number into numeric or 
string variables. The first item read is the item following the current position of the pointer, that 
is, immediately following the last item accessed. As with serial print, record boundaries are ignored 
and the list of read items can start in the middle of one record and end in the middle of another. 



Form 

The form of a Serial File READ is: 

READ # file number; read item list 

The read item list is a series of variables and/or FOR loops separated by commas. The rules 
governing this list are the same as those described for the READ statement in Section II. 



Explanation 

For a formatted file each item in the specified file is read into a variable in the read item list, the 
first item into the first variable, the second into the second, and so forth. 

The destination for a string value must be a string variable; the destination for a numeric value must 
be a numeric variable. Otherwise, a terminal error occurs. If the numeric value is not the same data 
type as the variable, conversion is performed as described in Section IV. 

It is possible to check the type of the next data item with the TYP function, described later in this 
section. 

When an attempt is made to read beyond a logical or physical end-of-file, an end-of-file condition 
occurs. Unless an ON END statement transfers control to another statement in the program, the 
program terminates. 
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Examples 



10 FILES AFILE, BFILE,* 

20 DIM A$[5],X$tl0],Y$I 10], C$115] 

30 DIM B12,5] 

40 MAT READ B 

50 DATA 100,200,300,400,500, 600,700,800,900, 1000 
60 LET A$= H ABCDE" 

70 PRINT # 1 i^ARRAY B",(FOR 1=1 TO 2, (FOR J= 1 TO 5 ,Bl I ,J ] ) ) ,END 

80 PRINT #2|A$,BI2,1 ],Bt 1 ,5] 

90 PRINT #2|END 
100 PRINT # 1 ;T END OF A.RRAY" 
110 RESTORE #2 
120 RESTORE #1 

130 READ #1;X$,A1,B1,C1,D1,E1 

140 PRINT X$,LIN(1),A1,B1,C1,D1,E1 

150 READ #1;A2,B2,C2,D2,E2 

160 PRINT A2,B2, C2,D2,E2 

170 READ #2*Y$,A,B 

180 PRINT Y$,A,B 

190 READ #l;C$ 

195 PRINT C$ 

200 READ #1;X 

210 REM • .ATTEMPT TO READ END-OF-F1LE CAUSES TERMINATION 
>RUN 

ARRAY B 

100 200 300 400 500 

600 700 800 900 100 

ABCDE 600 500 

END OF ARRAY 

END OF FILE IN LINE 200 



After data is written on files 1 and 2 with the print statements in lines 70-100, and the pointer is 
restored to the start of each file in lines 110 and 120, the data that was written can be read. 

The first six items in file 1 are read in line 130. The next five items are read in line 150. The three 
items written on file 2 are read in line 170. PRINT statements are inserted to test the accuracy 
of the reads and the previous writes. 

A string item remains in file number 1; this is read in line 190. Line 200 attempts to read an end- 
of-file causing the message: END OF FILE IN LINE 200 to be printed. 

When a string is read from, a binary file, the number of characters read depends on the form of the 
variable. For instance, if A$ is a simple string variable: 

READ #1 ;A$ reads the physical length of A$ 

READ #1,;A$(I) reads the physical length of the substring starting at I 

READ #1;A$(I,J) reads J-I+l characters into the substring starting at I 

READ #1;A$(I;J) reads J characters into the substring starting at I 
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File RESTORE Statement 



The File RESTORE statement repositions the file pointer to the start of the file. The statement 
can be used for any file, but is particularly useful for serial files such as magnetic tape. 

Form 

RESTORE # file number 
The file number identifies a file that is currently open. 

Explanation 

When File RESTORE is executed, the file pointer is set to point to the beginning of the first 
record in the file. A serial read or print will begin at that position. 



Example 



10 


FILES AFILEt BFILE 


20 


PRINT #1,1; 123.4 


30 


PR I NT #2, 1 ; 567.8 


40 


RESTORE #2 


50 


RESTORE #1 


60 


READ #1?C 


70 


READ #2;D 


80 


PRINT C,D 


>RUN 




123 


.4 567.8 



When the File RESTORE statements are executed, the pointer in file number 2 is moved back to 
the start of that file. Then the pointer in file number 1 is moved to the start of that file. If the 
files are magnetic tape, they are rewound. 
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Direct File PRINT 



The Direct File PRINT statement writes a list of data items onto the specified file as a single 
record. Printing begins at a particular record specified in the PRINT statement. After printing, 
an end-of-record mark is written and any data previously contained in the record is lost. Data in 
records preceding and following the specified record is not changed. 



Form 

The forms of a Direct File PRINT are: 

PRINT # file number, record number; print list 
PRINT # file number, record number; print list, END 
PRINT # file number, record number 
PRINT # file number, record number; END 

Both the file number and record number are integer expressions. The print list is optional and has 
the same format as a Serial File PRINT. If it is missing, the statement erases the contents of the 
specified record. 



Explanation 

The Direct File PRINT positions the pointer at the beginning of the specified record and then 
writes the contents of the print list. An end-of-record mark is written following the items in the 
print list. Any previous end-of-record marks are ignored. 

When a string item is printed to a binary file, the item starts at a word boundary and is as long as 
the current length of the string. If the string is of odd length, an additional character of undefined 
value is written to complete the last word. Each word contains two characters. 

The first record of the file is record number 1. 

END writes an end-of-file mark. If no print list is specified, any data in the specified record is 
replaced by the end-of-file mark. 

Serial and Direct PRINT statements can be used to write on the same file. A serial print following 
a direct print will write its data items immediately following the previous items. 

The file MARGIN statement (described in this section) can be used together with the PRINT # 
statement in order to change the length of the print line for an ASCII file. 
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Examples 



10 FILES AF1LE, BFILE,* 
20 FILES AA,BB,*,*,* 
30 ASSIGN W XFILE",3,X1 ,NL 
40 ASSIGN " DFILE" , 6,D 1 ,RR 
50 LET A1=1,B1=2,C1=3,D1=4,E1=5 
60 LET A$="A" 
70 FOR Nrl TO 10 
80 LET BIN] = N+1 
90 NEXT N 
100 DIM B [ 1 0 ] 

110 PRINT #3,1}"START OF XF1LE" 

120 PRINT #3,2; 10, Al , (FOR N = l TO i:,B(N]> 

130 REM. .TWO RECORDS HAVE BEEN WRITTEN ON XFILE 

140 PRINT #6,2?B1 ,C1 ,D1 ,E1 

150 PR I tMT #6, 1;A$ 

160 PRINT #6,3;END 

170 REM.. THE THIRD RECORD OF DFILE IS AN END-OF-FILE 

>RUN 



The first record of file number 3 contains a string value. The second record has two numeric items 
and the contents of a 10-element numeric array. No end of file is written on #3. 

File number 6 also has a string item in its first record; it has four numeric items in the second 
record. The third record is an end-of-file. 

Note that the records do not have to be written in the order they appear in the file. 
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Direct File READ 



The Direct File READ statement reads data values starting at a specified record of a specified file 
and assigns them to variables. Numeric values can be assigned only to numeric variables, and string 
values to string variables, as in Serial File READ. 



The forms of the Direct File READ statement are: 

READ # file number, record number; read item list 
READ # file number, record number 

The file number and record number are integer expressions. The optional read item list is of the 
same form as in a READ statement. 



Data values are read from the record and assigned to the variables in the item list. If a record number 
is specified outside the range of the file, an end-of-file condition occurs. 

If the read item list is omitted, the statement moves the file pointer to the beginning of the specified 
record, but does not read any data. 

A READ statement for an ASCII file is terminated by a NULL character; that is, NUM (character)=0 
Therefore, binary data should not be written to an ASCII file. 



10 DIM Ct2,5) 

20 DIM A$[20 ],X$[20] 

30 READ #3,1;A$ 

40 READ #3,2;X,Y ,(F0R N=l TO 2, (FOR P=l TO 5,CIN,PJ)) 
50 READ #6,1;X$ 
60 PRINT A$,X ,Y 
70 MAT PRINT C 
80 PRINT X$ 

90 FILES *,*,XFILE,*,*,DFILE 



Form 



Explanation 



Example 



>RUN 



START OF XFILE 10 
2 3 



4 



5 



6 



7 



8 



9 



10 



1 1 



A 
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In this example, the data previously written on records 1 and 2 of XFILE and on record 1 of DFILE 
are read. (See examples with Direct File PRINT.) 

In the example below, ten records are written on file AA and then these records are copied to file 
BB and AA is closed. 



10 DIM XU01 

20 MAT READ X 

30 ASSIGN "AA",1,A 

40 FOR R = l TO 10 

50 PRINT #l,R|XtR] 

60 NEXT R 

70 PRINT #1;END 

80 ASSIGN "BB" ,2, B 

90 FOR R-{ TO 10 
100 READ #1,R;X 
1 10 PRINT #2,R|X 
120 NEXT R 
130 PRINT #2; END 

140 PRINT "FILE AA COPIED TO FILE BB" 
150 ASSIGN *,1 

160 DATA 10,20,30,40,50,60,70,80,90,100 
170 FILES *,* 
>RUN 

FILE AA COPIED TO FILE BB 
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ASCII File Access 

ASCII files may be accessed with any statements except the ADVANCE, UPDATE or CREATE 
statements. The File LINPUT statement can be used to read the contents of an ASCII record 
and the File MARGIN statement can be used to change the length of the print line for an 
ASCII file. In addition, the PRINT # USING and MAT PRINT # USING statements (see Section 
IX) allow the user to print to an ASCII file according to a specified format. 



8-22 



AUG 1978 



File LIN PUT Statement 



The File LINPUT statement reads the entire contents of a record in an ASCII file into a string 
variable. File LINPUT is used to read ASCII files only. 



Form 



LINPUT # file number; string variable 

LINPUT # file number, record number; string variable 



Explanation 

File LINPUT reads the contents of the record at which the pointer is currently positioned or at 
specified record. This is like LINPUT (see Section II) except that input is from a file, not a 
terminal, and a record, not a line, is read. 

If the string variable is not large enough to contain the entire record, the extra characters are 
discarded. 



Example 



10 DIM A$[72 ],B$(20 ) 
20 READ Al ,B1 ,C1 ,D1 ,E1 
30 RESTORE #10 
40 PRI NT #10;A1 ,B1 , CI ,01 ,E1 
50 PRINT #10;"1, JANUARY , 1973 " 
60 RESTORE #10 
70 LINPUT #10;*$ 
30 LIN'PUT #10;B$ 
90 PRINT A$,B$ 
100 DATA 10,20,30,40,50 

110 FILES AFILE,BFILE,*,AA,BB,DFILE,FF2,X,*,ASCI 
>RUN 

10 20 30 44 

1, JANUARY, 1973 



The first two records of the ASCII file ASCI are input into the string variables A$ and B$, the 
first record in A$ and the second in B$. 



8-23 



File MARGIN Statement 



The File MARGIN statement is used to set the length of the print line (number of characters) for 
the PRINT and PRINT # statements. File MARGIN is used for ASCII files only. 



Form 

MARGIN marginsize 

MARGIN #file number,marginsize 



Explanation 

The optional file number identifies an ASCII file. If the file number is zero or is not specified, the 
length of the print line for the PRINT and MAT PRINT statements is set. Otherwise, the length of 
the print line is set for the specified ASCII file; any PRINT # or MAT PRINT # statement to the 
same file which follows the MARGIN statement will be affected. The length of the print line remains 
set until the next MARGIN statement is encountered or until the program terminates. 

The marginsize gives the desired length of the print line. The value specified is rounded to the 
nearest integer, which may not be less than 15 or greater than the record size. If a marginsize 
outside these bounds is specified, a warning message is given and the marginsize will be set as 
follows: if the rounded off value is less than 15, the marginsize is set to 15, while if it is greater 
than the record size, it is set to the record size. 

Both the file number and marginsize may be numeric constants, variables, or expressions. 

The MARGIN statement has no effect on the PRINT USING, PRINT # USING, MAT PRINT 
USING, and MAT PRINT # USING statement described in Section IX. 



Example 

BFILE is an ASCII file of record length 40. If a marginsize greater than 40 or less than 15 is 
specified, a warning is given and the marginsize is set to 1 5 or to 40 as appropriate. 
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10 HLF5 BFJU 
?0 hOP 1=1 TP 4 

4 0 1MF-"T J 

50 MUPCJN M.J 

60 PPINT «1 ;1 ,7,3, 

7 0 PPIM-I #1 

Hi- r \ T I 

> P 1 i (•; 

"mpcii- tiizi-Yis 

WAPoIOC: HI F' G A I. «••£»••(, J ^ Th 1,1 iNF c 0 
"APT T ST/i"?40 

•Af-G r • .- ' :-<■ no 

■■' A )• < . i T 'i v ■' \ ■■; 

■■ I, pf. T i,r ; | f | f. CM. '■ f wf. I f ! TO f \ W 
BFILE now contains the following: 

1 2 3 

4 5 

1 2 3 

4 5 

1 2 
3 4 
5 

1 

2 
3 
4 
5 



I 
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Binary File Access 



Access to binary files may be serial or direct as with BASIC formatted files. Direct access is allowed 
only for files on disc with fixed length records. Serial access is allowed for all files. 

Data items are stored in binary files as binary words without type flags. When data is read from a 
binary file, it is assumed to be the same type as the variable into which it is being read. Items in 
binary files can cross record boundaries and new records are used only upon overflow. 
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Dynamic Locking 



If a file is opened with an ASSIGN statement and either WL or NL is specified as a restriction, 
access to the file can be dynamically controlled with the LOCK and UNLOCK statements. 



Form 

LOCK # file number 
UNLOCK # file number 

The file identified by file number must have been opened with an ASSIGN statement specifying 
one of the restrictions WL or NL. 



Explanation 

LOCK gives a program exclusive control of a file until it is unlocked by the UNLOCK statement. 
During control by LOCK, no other program can lock the file until UNLOCK is executed. An 
attempt to lock a file that has been locked by another program will cause the program to be sus- 
pended until the file has been unlocked in the other program. Only one file at a time can be 
locked, although WL or NL may be specified for more than one file. Any write operations on a 
locked file are guaranteed to be physically completed before the UNLOCK is executed. Each 
access to a file during dynamic locking should be made between a LOCK and UNLOCK statement. 

Note that the LOCK statement does not actually restrict other programs from accessing the file. 
Therefore, all programs must cooperate by first locking, then accessing, and then unlocking the 
file. Dynamic locking is not necessary if it is unlikely that more than one user will access the 
same file, or if none of the users are writing on the file. 



Examples 



10 


FILES AFILE,BFIL£,* 


20 


FILES Ah,BB,*,*,* 


30 


mSSIGN "X" ,8,1 ,Al 


40 


PRINT T 


50 


LET A=2.57325E13 


60 


LOCK #8 


70 


PRINT #8;A 


80 


UNLOCK #8 


>RUN 




LOCK 




0 
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The file is locked in line 60. This assures that no other program can lock the same file, and that the 
write operation in line 70 will be completed and the pointer moved to the beginning of the next 
record. Line 70 contains a Serial File PRINT statement that writes the contents of the variable A 
onto file number 8. Line 40 prints the contents of the numeric variable T containing the result of 
the ASSIGN. This shows that the file is open and can be written on before LOCK is specified. 
Following execution of the UNLOCK statement, in line 80, any other user may lock the file. 

If a program performs multiple file locking, it must be run with MR status. There are two ways to 
achieve MR status: 

• The first method uses the MR parameter of the RUN command. The user must have MR capa- 
bility to execute the program with its MR status. 

• The second method uses the SAVE command with the MR parameter. To perform the SAVE, 
the user must have MR capability as in the previous case. (The SAVE command gives MR status 
only to the saved program, not the current program.) 

If the user does not possess MR capability, a saved program with MR status can still be retrieved and 
run with its MR status by either the RUN or the GET command. However, if the program is modi- 
fied, it will lose its MR status. In this case, MR status can be regained by one of the two methods 
described above. 
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ON END Statement 

The ON END statement sets a flag for a specified file so that if and when an end-of-file condition 
occurs in reading and writing that file, control is transferred to a specified statement. If the flag 
is not set, an end-of-file condition causes program termination. 



Form 

The forms of ON END are 

ON END # file number THEN label 
IF END # file number THEN label 

ON END and IF END are accepted interchangeably but the statement is always stored internally 
and listed as ON END. 



Explanation 

When an end-of-file condition occurs during execution of a Direct or Serial File READ statement 
or a File LINPUT statement, the ON END statement transfers control to the statement identified 
by label. When writing on a file with a Direct or Serial File PRINT statement, ON END transfers 
control to label when an attempt is made to write past the physical end-of-file. 

ON END is an executable statement and the transfer label can be altered by a subsequent ON END 
statement. The label must not lie within the range of a function unless the ON END is also within 
that function. An ON END within a function must refer to a label within that function; ON END 
has no effect outside the function. 

ON END is not executed if an end-of-file is encountered during execution of the ADVANCE state- 
ment (see ADVANCE description, this section). 



Examples 

In the example below, the Direct File READ in line 70 attempts to read an end-of-file written in 
line 50. The ON END statement transfers control to line 100. 
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10 FILES AFILE, BFILE 

20 READ Al ,B1 ,C1 ,D1 ,E1 

30 DATA 100,200,300,400,500 

35 ON END #2 THEN 100 

40 PRINT #2, 1 ; A i ,B1 ,C1 

50 PRI NT #2,2; Dl ,E1 , END 

60 READ #2, 1;A ,B,C 

70 READ #2,2; D,E,F 

80 END 

100 PRINT " END OF FILE 2" 
120 PRINT A,B,C,D,E 
>RUN 

END OF FILE 2 

100 200 300 400 500 



In the next example, file RR is created with 5 records. The File PRINT statement in line 100 
attempts to write past the end-of-file and the ON END statement causes a transfer to line 130. 



>CREATE RR.5 

10 FILES RR 

20 DIM X[6] 

30 MAT READ X 

40 ON END #1 THEN 130 

50 PRINT #1,1;X[1 ) 

60 PRINT #l,2;Xt2] 

70 PRINT #1 ,3;Xt3 ] 

80 PRINT #1,4;X[41 

90 PRINT #1,5;X15] 

100 PRINT #i,6;Xt6] 

110 DATA 10,20,30,40,50,60 

120 END 

13 0 PRINT " END OF FILE" 
>RUN 

END OF FILE 

>DUMP RR 
10 
20 
30 
40 
50 



8-28 



ADVANCE Statement 



The ADVANCE statement allows for skipping past items in a BASIC/3000 formatted file without 
reading them. 



Form 



The form of ADVANCE is 



ADVANCE # file number; integer expression, numeric variable 

The integer expression specifies the number of data items to be skipped and the numeric variable 
is used to return a result value. 



Explanation 

If the integer expression is negative, items are skipped in a reverse direction. 

After execution of ADVANCE, the numeric variable equals zero if the ADVANCE was successful. 
If the ADVANCE statement encountered either an end-of-file or a start-of-file, the numeric 
variable equals the difference between the number of items requested and the number actually 
skipped. This value is negative if ADVANCE was in the reverse direction. 



Example 

10 FILES *,*,AA,BB 
20 LET A = 1,B=2,C=3,D = 4,E = 5,X$="X 
30 PRINT #3;A,B,C,D,E,X$,END 
40 RESTORE #3 
50 ADVANCE #3;3,X1 
60 IF X1<>0 THEN GOTO 100 
70 READ #3$L,M 
80 READ #3;A$ 
90 PRINT L,M,A$ 
100 PRINT XI 
>RUN 

A 5 X 

0 



The first three items in file AA are skipped, then the next three are read and printed. 
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UPDATE Statement 



The UPDATE statement allows an item in a BASIC/3000 formatted file to be modified without 
affecting any of the items that precede or follow. UPDATE overwrites the next item in the file and 
positions the pointer to the item that follows. 

Form 

The form of UPDATE is 

UPDATE # file number; expression 



Explanation 

If the existing data item is numeric, the expression to be written must be numeric also. If their 
types do not match, the value of the expression is converted to the type of the existing data item. 

If the existing item is a string, the expression must be a string. The string expression is truncated 
or blank-filled on the right to fit the size of the existing item exactly. 



Examples 

10 FILES *,*,AA 
20 LET A=1,B=2,C=3,D=4,E=5 
3 0 LET A$r"A M ,B$= ,, B M 
40 PRINT #3, 1 | A ,B,C,D,E,A$,B$ 
5 0 RESTORE #3 
60 ADVANCE #3;3,X1 
70 UPDATE #3;4.57 
80 ADVANCE #3;2,X2 
90 UPDATE #3;"XYZ" 
>RUN 

>DUMP AA 
1 

2 
3 

4.57 

5 

A 
X 

The fourth and seventh items in file AA are given new values with the UPDATE statement. The file 
is then dumped to illustrate the successful update. 
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Listing File Contents 



DUMP COMMAND 

The DUMP command displays the contents of a BASIC/3000 formatted file on another file: either 
the normal output file or a specified ASCII file. DUMP provides a simple way to print file contents 
at the terminal. Normally the contents of a file to be dumped are string data. 



Form 

DUMP file name 

DUMP file name, OUT=asciifile 

file name is a simple string without quotes. It must name a BASIC/3000 formatted file, asciifile is 
the name of an existing ASCII file. 



Explanation 

The contents of the named file are dumped on the normal output file (the terminal) unless 
OUT=asciifile is specified, in which case, the file is dumped on the specified ASCII file. 

DUMP prints each item on a separate line; record boundaries are not indicated. DUMP terminates 
at the first end-of-file. 

If the length of a string is greater than that of the output file records, the string is truncated. In 
this case, MPE file commands are used to change the record length during a BREAK. 

: FILE outfile=$STDLIST;REC=-256 
: BASIC 

HP32101B.00.08(4WD) BASIC (C) HEWLETT-PACKARD CO 1976 

>CREATE BFILE,50 

>100 FILES BFILE 

>200 PRINT #1,1, -40, 400 

>300 PRINT #1,2, -50, 500, 5000 

>400 PRINT #1,3; "HANDYMAN" 

>RUN 

>DUMP BFILE, OUT=outfile 

40 

400 

50 

500 

5000 
HANDYMAN 

>EXIT 

END OF SUBSYSTEM 



APR 1978 



8-31 



Example 

10 FILES AFILE 
20 LET X = 10.5,Y=75,Z = 150 
30 PRINT #1, 1; 10,20,30 
40 PRI NT # 1 , 2 ; *' HELLO" 
50 PRINT #1,3;X,Y,Z 
>RUN 

>DUMP AFILE 

10 

20 

30 
HELLO 

1 0.5 

75 

150 
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File Functions 



Three functions are available in BASIC/3000 that assist in file access. They are TYP, REC, and ITM. 
TYP FUNCTION 

The TYP function returns the type of the next data item for a particular file. This function is used 
in conjunction with File READ statements since the variables into which the data is read must be 
string if the item is string, numeric if the item is numeric. 



TYP (file number) 

The file number may be a numeric constant, variable, or expression, and must identify an existing 
file. 

Explanation 

The value returned by TYP depends on the type of the next data item in the file. 



If the file number is greater than zero, the file is treated as a serial file. This means that the value 4 
is never returned as end-of-record marks are skipped in a serial file. 

If the file number is less than zero, the file is treated as a direct file and any of the values of TYP 
may be returned. Since the file number is based on the absolute value of the expression, an 
expression equal to -1 means that file number 1 is examined and treated as a direct file. 

If the file number equals zero, TYP returns a result based on the current position of the 
pointer to the DATA statements (see READ/DATA/RESTORE description, Section II.) The 
value 4 is never returned, and 3 means end-of-data. 

If the file is binary, TYP returns only the vaues 1, 3, or 4. 



Form 



TYP(x) 



Meaning 



1 

2 
3 
4 
5 
6 
7 



real 

string 

end-of-file 

end-of-record 

integer 

long 

complex 
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If the file is ASCII, TYP returns the same results with the same meaning as the BUF function, except 
that TYP returns a value of 3 for end-of-file and a value of 4 for end-of-record. (See BUF Function 
description under INPUT Statement, Section II.) 



Examples 

File AFILE is written with integer, real, long, and complex numbers. A later program reads only 
the long and complex items using the TYP function to distinguish them: 

10 FILES AFILE 
20 INTEGER A> B 
30 LONG LI 
40 COMPLEX CI 

50 LET A«25,B«100,X»2.357E12,Y»7. 649E-5 

60 LET L1-9.99999L-5 

70 LET Cl-(. 002359, .002175) 

80 PRINT #i;A,X,Ll,B/Y>C 1, "STRING RECORD"* END 
>RUN 

>SCPATCH 



10 FILES AFILE 
20 LONG L3 
30 COMPLEX Fl 

40 GOTO TYP(l) OF 50/ 50, 1 30, 50* 50, 70* 1 00 

50 ADVANCE #1) l,Al 

60 GOTO 40 

70 READ #1JL3 

80 PPINT L3J 

90 GOTO 40 
100 READ #11 Fl 
110 PRINT Fl; 
120 GOTO 40 

130 PRINT LIN<1>;"END OF FILE" 
>FUN 

9.999990000000000L-05 ( 2.35900E-03, 2.17500E-03) 
END OF FILE 
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REC FUNCTION 



The REC function returns the record number at which the file pointer is currently positioned for a 
specified file. 



Form 

REC(file number) 

The file number identifies an existing file. REC returns the record number of the record in 
that file currently being accessed. 



Example 

10 FILES AFILE,BFILE,XFlLE,AA f BB 
20 LET A = 1,B=2,C=3,D = 4,E=5 
30 PRINT #5jA,B t C f D,E 
40 LET R=REC<S) 
30 READ #5,R| V,W,X ,Y ,Z 
60 PRINT V,W f X,Y,Z 
>RUN 

1 2 3 4 5 



The variable R is set to the value of REC(5); this vaue, the current record in file BB, is then used 
in the Direct File READ in line 50. 



ITM FUNCTION 

The ITM function returns the number of data items between the beginning of the currently accessed 
record and the position of the file pointer for a specified file. 



Form 

ITMffile number) 

The file number identifies a currently open BASIC formatted file. ITM returns a real value showing 
the number of data items from the beginning of the current record through the position of the 
file pointer for that file. 
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Example 



10 FTLFS TEXT 

20 PRINT #1 ; 1 2345,23456, 345b7 

30 HFSTtlPE #1 

4 0 REAP #1;A,B 

5 0 PRINT A#B 

60 PP1NT M TTFM";ITM(t);"HAS JUST BEEN READ 

65 PRINT "FROM RECORD" • RFC (1) 

70 PRINT « 1 , 2; " ABCPEF" 

RO DTM AS 16] 

90 READ #1,2:AS 

100 PPIMT AS 

110 PRINT " TTEM" • ITM( 1 ) J "HAS JUST BEfcN PEAD 

115 PRINT "FROM RECORD "; RFC C 1) 



>RUN 
1 234S 
I TE M 2 



2345b 

HAS JUST BEEN READ FROM RECORD 1 



ABCDEF 
ITEM 1 



H»S JUST BEEN READ FROM RFCORD ? 
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File Array Operations 



There are four statements for accessing files with arrays: 

Serial File MAT PRINT ' 
Serial File MAT READ 
Direct File MAT PRINT 
Direct File MAT READ 

For formatted output of arrays, see the descriptions of MAT PRINT USING and MAT PRINT # 
USING in Section IX. 



SERIAL FILE MAT PRINT STATEMENT 

This statement prints entire arrays on a file starting at the current position. 
Form 

MAT PRINT #file number; array list 
MAT PRINT #file number; array list, END 
MA T PRINT #file number; END 

The array list contains a list of array names separated by commas. END writes an end-of-file mark. 
Explanation 

The arrays specified in the array list are written on the specified file row by row. END, whether 
alone or after the array list, writes an end-of-file. 

The length of the print line can be changed by using the MARGIN statement described in this 
section. 

SERIAL FILE MAT READ STATEMENT 

This statement reads data items, starting with the current position of a specified file, to fill entire 
arrays row by row. 

Form 

MAT READ #file number; array list 
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Explanation 



The array names in the array list will contain data read from the specified file. 



Example 



The example below writes the values of two arrays onto the file BB; it then reads the array value 
into two different arrays with different dimensions: 



10 FILES *,*,*, BB 
20 DIM At2,5],Bl3,2 ] 
30 MAT READ A 
40 MAT READ B 

30 DATA 10,20,30,40,50,60,70,80,90,100,1,2,3,4,5,6 
60 MAT PRINT #4;A,B 
70 RESTORE #4 
80 DIM Ct 5,2 ],Dt2,3 J 
90 MAT READ #4;C,D 
100 MAT PRINT C,D 



>RUN 




10 


20 


30 


40 


50 


60 


70 


80 


90 


100 


1 


2 


4 


5 



DIRECT FILE MAT PRINT STATEMENT 

This statement prints arrays starting at the beginning of a specified record within a specified file. 
Form 

MAT PRINT # file number, record number; array list 
MAT PRINT # file number, record number; array list, END 
MAT PRINT # file number, record number; END 
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Explanation 

The array names in the list are written on the file starting at the beginning of the record identified 
by record number. An END in the array list causes an end-of-file mark to be written. The contents 
of the array list may cross record boundaries. 

The length of the print line can be changed by using the MARGIN statement described in this 
section. 

DIRECT FILE MAT READ STATEMENT 

This statement reads entire arrays starting from a specified record in a specified file. The read may 
cross record boundaries. 

Form 

MA T READ # file number, record number; array list 
The array list contains the names of entire arrays. 
Explanation 

The contents of the specified record number are read into the array variables specified in the array list. 
Examples 

Two arrays A and B are written on MAT1 starting at record number 5. The arrays are read from 
record number 5 into arrays C and D respectively. 



10 


r'l^cS *,*,*,* 






23 


DI» Atl0],B[3 


,2 J, CI 5, 


21,012,3 J 


30 


MAT REaD A,B 






40 


DAT* 1,2,3,4, 


5,6, 7,3, 


9,0 


50 


DATA 6.5,7.4, 


8.3,9.2, 


.1 ,5.5 


60 


ASSIGN "MAT 1 " 






70 


MAT PRINT #4, 


5;^,b 




80 


MAT READ #4,5 


;c,d 




93 


MAT PRINT C,D 






UN 









1 2 

3 4 

5 6 

7 8 

9 0 

6.5 7.4 8.3 

9.2 .1 5.5 
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SECTION IX 
Formatted Output 



The PRINT USING and IMAGE statements of BASIC/3000 give the user explicit and exact control 
over the format of his program output. The PRINT # USING statement allows the output to be 
directed to a specified ASCII file. All types of numbers can be printed: integer, fixed-point, floating- 
point, and complex. The exact position of plus and minus signs can be specified. String values 
can be printed in specified fields; literal strings and blanks can be inserted wherever needed. Carriage 
return and line feed are under explicit control and lines longer than 72 characters can be printed. 

Format strings are used to specify the output format. These strings are explicitly included in the 
PRINT USING statement, or they may be specified in IMAGE statements whose labels are refer- 
enced in the PRINT USING statements. 
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PRINT USING Statement 



The PRINT USING statement allows the user to output a list of items according to a customized 
format. 

Form 

The forms of PRINT USING are: 

PRINT USING labeUprint using list 
PRINT USING label 

PRINT USING string expression;print using list 
PRINT USING string expression 

The print using list is an optional list of expressions and functions from which items are printed. 
It is like a print list (see PRINT Statement, Section II) except that semicolons and trailing punctua- 
tion are not allowed. 

Either a label or string expression must be specified following USING. If a label is used, it identi- 
fies an IMAGE statement containing the format string. If a string expression is used instead, the 
expression itself is the format string. In the case when the format string is of the form "literal 
specifications", outer quote marks must be represented by the ASCII character code for the quote 
symbol ('34). 

The print using list can be omitted when the format consists entirely of literal specifications. 



Explanation 

A format string describes the form in which items in the print using list are to be printed. The full 
description of format strings is contained under Format Strings, this section. 

Any commas in the print using list are separators only; they have no formatting function as they do 
in PRINT. 

When PRINT USING is executed, each specification in the associated format string is extracted and 
examined. If the specification calls for a string or numeric value, the print using list is examined for 
a corresponding expression. Each expression is output according to its corresponding specification 
in the format string. Any print functions in the list are executed as they are encountered. 

If the expression and the specification do not match because one is a string and the other is numeric, 
the program terminates with an error message. If the value of a numeric expression is greater than 
can be printed with the format, the number is printed without format control, and preceded by two 
asterisks, on a separate line. The program continues. An integer specification prints a real number 
with any fraction rounded to the nearest integer. 

If the format specification is a literal specification, it is printed without examining the print using 
list. When the format string contains only literal specifications, the print using list, if present, is 
ignored. 
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If the end of the format string is reached before the end of the print using list, processing returns 
to the beginning of the string. The next expression in the list is matched to the first specification 
in the format string. When all expressions in the list have been printed, a carriage return and line- 
feed are generated unless a carriage control character specified in the format string suppresses the 
final carriage return and/or linefeed. 



Examples 

In the following example, three ways of specifying the format with PRINT USING statements are 
shown. In line 30, numeric variables A and B are printed according to a format specified in a 
string expression. In line 40, the PRINT USING statement references the IMAGE statement of 
line 50, so that A and B are printed according to the format string given there. In line 60, the 
print using list is omitted and outer quote marks are given by the ASCII character code '34: 

10 DIM A$ [10] 
20 LET A=100000,B=999999 
30 PRINT USING "10D";A,B 
40 PRINT USING 50 ; A, TAB (23) , B 
50 IMAGE $DXDDDXDD 
60 PRINT USING ' 34 "ABCDEF" ' 34 
>RUN 

100000 999999 
$1 000 00 $9 999 99 

"ABCDEF" 

The exact meaning of the format strings used in these examples is described below under Format 
Strings. Note here that: 

integers are replicators causing repetition of the specification that follows 

X causes a blank to be printed 

D prints a decimal digit from the print using list 

$ causes a dollar sign to be printed 
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PRINT # USING Statement 



The PRINT # USING statement allows the user to output a list of items to an ASCII file according 
to a customized format. 



Form 

The forms of PRINT # USING are: 

PRINT #filenumber[;] USING label-print list 

PRINT #filenumber[ ;] USING string expression-print list 

PRINT #filenumber[;] USING label 

PRINT #filenumber[ ;] USING string expression 

PRINT #filenumber,recordnumber[\] USING label\print list 

PRINT #filenumber,recordnumber[ ;] USING string expression; print list 

PRINT #filenumber,recordnumber[ ; j USING label 

PRINT #filenumber,recordnumber[ ;] USING string expression 

The filenumber identifies an ASCII file, which has been specified in a FILES or ASSIGN statement 
(see Section VIII). If the filenumber is zero, the standard listing device (your terminal in an inter- 
active session, the line printer in a batch job) is referenced. 

The optional recordnumber specifies the record into which the items in the print list are to be 
printed. A recordnumber may only be specified for an ASCII file with direct access capability, 
such as a disc file. It is not allowed for a file which has only serial access capability (such as the 
line printer) and will generate the error DIRECT ACCESS ILLEGAL IN LINE line number if 
attempted in such a case. For this reason, a recordnumber is not allowed if the filenumber is 
zero. 

The optional print list is one of the following: print using list (as described for PRINT USING), 
END, or print using list,END. It may be omitted when the format consists entirely of literal 
specifications. 

The format string is in an IMAGE statement identified by the label or it is contained in the string 
expression. The form for the label or string expression is the same as described for PRINT 
USING. 

The semicolon before USING is optional. BASIC will accept it, but it will not appear when the 
line is listed. 



Explanation 

PRINT # USING to ASCII files basically acts in the same manner as PRINT USING except that 
output is directed to the ASCII file specified by the filenumber. If the filenumber is zero, this 
statement is exactly equivalent to the PRINT USING statement. 
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The format specifications for printing to an ASCII file describe the form in which items in the 
print list are to be printed. They are provided and evaluated in the same manner as for PRINT 
USING. 



When a print list is specified, END may be used after or instead of the print using list to cause 
an end-of-file to be written to the specified file. END is not allowed if the filenumber is zero. 

Both the filenumber and recordnumber may be numeric constants, variables, or expressions. 

Note that the ASCII code equivalents for carriage return and line feed are not written to ASCII 
files, but cause adjustment of the record pointer. This also applies to the action of the LIN and 
CTL functions. See the example below. 



Example 



i o y 1 1 t ~ am ( >" 

/r | j. f <\-y 2 -t , Pi i-,f 7 « 

"4P ITT.iT a l US I »>c, " 7 i/ " ; J , 

* n ■ i v h i rsi'o ' M" sn-\f M.jPf i- vAMrr,i;5" * 34 

K> P!' t r 7 1 , * or j f. u f,0 ; A , r * 

Pi- t r « 1 , k : ,; 1 *■ 1 ■ ' < i " a d C ."" ' 1 !.; " i.;p> " ' i 4 

- !> P !- T '. T s 1 ! S )' ■ .., " S 1 ' " ; /> , \ 1 'v ( - i 1 , P 



AFILE now contains the following: 

1 / < 4 S t> 7 n 

p, |V). »'0hp l " * a-t i p\< 



1 I * 



The recordnumbers given in lines 50 and 70 caused output to be directed to those specific records 
of the ASCII file AFILE. The ASCII equivalent of line feed ('10) in line 70 and the LIN function 
in the print list of line 80 caused adjustment of the record pointer. 
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MAT PRINT USING Statement 



The MAT PRINT USING statement allows the printing of one or more complete arrays according 
to a specified format. 



Form 



The form of MAT PRINT USING is: 

MAT PRINT USING label 

MAT PRINT USING label;mat print using list 

MAT PRINT USING string expression 

MAT PRINT USING string expression; mat print using list 

The mat print using list is a list of arrays and print functions. 

The format string is in an IMAGE statement identified by label, or it is contained in the string ex- 
pression. 



Explanation 

The format specifications for printing the arrays in the list are provided and evaluated in the same 
manner as for PRINT USING. The arrays are printed row by row as in the MAT PRINT statement, 
but all spacing is provided by the format string associated with the mat print using list. 



Examples 



10 DIM A[3, 7],B[3,5 ] 

20 MAT READ A ,B 

30 MAT PRINT USING 100;B 

40 MAT PRINT USING " 7C3D2X) A 

50 DATA 100,110,120,130,140,150,160,170,180,190,200 
60 DATA 210,220,230,240,250,260,270,280,290,300 
70 DATA 400,410,420,430,440,450,460,470,480,490 
80 DATA 500,510,520,530,540 
100 IMAGE 5 (DXDDXX) / 
>RUN 

4 00 4 10 4 20 4 30 4 40 

4 50 4 60 4 70 4 80 4 90 

5 00 5 10 5 20 5 30 5 40 

100 110 120 130 140 150 160 
170 180 190 200 210 220 230 
240 250 260 270 280 290 300 
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Array A is printed according to the string expression in line 40; array B is printed according to the 
format in the IMAGE statement in line 100, which inserts a blank after the first digit of each 
number. 
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MAT PRINT U USING 



The MAT PRINT # USING statement allows the printing of one or more complete arrays to an 
ASCII file according to a customized format. 

Form 

The forms of MAT PRINT # USING are: 

MAT PRINT #filenumber[;] USING label;mat print list 

MAT PRINT #filenumber[;] USING string expression;mat print list 

MAT PRINT #filenumber[;] USING label 

MAT PRINT #filenurnber[;] USING string expression 

MAT PRINT #filenumber,recordnumber[;] USING label;mat print list 

MAT PRINT #filenumber,recordnumber[ ;] USING string expression;mat print list 

MAT PRINT #filenumber,recordnumber[ t ] USING label 

MAT PRINT #filenumber,recordnumber[ ;] USING string expression 

The filenumber identifies an ASCII file. If the filenumber is zero, the standard listing device (your 
terminal or the line printer) is referenced. 

The optional recordnumber specifies the record into which the items in the mat print list are to 
be printed. As for the PRINT # USING statement, a recordnumber may only be specified for an 
ASCII file having direct access capability. 

The optional mat print list is one of the following: mat print using list (as described for MAT 
PRINT USING), END, or mat print using list, END. It may be omitted when the format consists 
entirely of literal specifications. 

The format string is in an IMAGE statement identified by label, or it is contained in the string 
expression. 

As for PRINT # USING, the semicolon before USING is optional. 
Explanation 

MAT PRINT # USING to ASCII files acts in the same manner as MAT PRINT USING except that 
output is directed to the ASCII file specified by the filenumber When the filenumber is zero, this 
statement is equivalent to the MAT PRINT USING statement. 

The format specifications for printing the mat print list are provided and evaluated in the same 
manner as for MAT PRINT USING. END may be used after or instead of a mat print using list 
to cause an end-of-file to be written to the specified ASCII file and is not allowed if the filenumber 
is zero. 
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IMAGE Statement 



The IMAGE statement specifies a format string to be used in a PRINT USING statement. It is a 
declarative statement and is not executed. 



Form 

The form of the IMAGE statement is 
IMAGE format string 

The format string is not quoted. It may be used by PRINT USING or MAT PRINT USING state- 
ments. 

Format string specification is described in this section under Format Strings. 



Explanation 



The format string specified in an IMAGE statement is associated through the label of the IMAGE 
statement with one or more formatted print statements. By specifying a format in an IMAGE 
statement, many PRINT USING and MAT PRINT USING statements can use the same format. 

The legitimacy of the format string in the IMAGE statement is not checked until execution of the 
PRINT USING statement referencing it. 



Examples 



10 DIM A$[20 ] 

20 A$= M 1,2,3,4,5,S,7,8,9,0, M 
30 A = 123456, B = -7S9100, C= 12 
40 X=1234.56 

50 IMAGE 6D2X, ,, L1TERAL'*,S2DXX,$4D.2D 
60 IMAGE S4DXX.DD/20AX,S7D 
70 PRINT USING 50;A,C,X 
80 PRINT USING 60;X,A$,B 
>RUN 

123456 LITERAL+ 12 $1234.56 
+1234 .56 

1,2,3,4,5,6,7,8,9,0., -789100 



The decimal point in the format string indicates that a decimal point should be printed and, by its 
position, specifies the number of digits to the left and right of the decimal. The slash causes a 
carriage return and linefeed. 
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Format Strings 



The format string consists of an optional carriage control character and comma followed by one or 
more format specifications separated by one or more commas and/or slashes. Each format specifi- 
cation consists of orderly combinations of format symbols. 

Format Symbols 

Format specifications are composed of permutations of the following symbols (the replicator n is 
an integer between 1 and 255 inclusive): 

A Causes the printing of a single character. nA causes n characters to be printed. A is 
legal only for string data items. 

D Causes a decimal digit to be printed. nD causes n decimal digits to be printed. 

X Causes a blank to be printed. nX causes n blanks to be printed. 

Indicates placement of decimal point. 

S Indicates placement of "+" and "-" signs. 

M Indicates placement of "-" only. 

E Causes numbers to be printed in E-type float form. 

C Indicates a complex format follows. 

K Indicates compressed numeric formatting. 

I Causes the character "I" to be printed; nl causes n I's to be printed. 

$ Causes the character "$" to be printed; n$ causes n dollar signs to be printed. 

+ or - Separate the real from the imaginary part in a complex number and indicate place- 
ment of the sign for the imaginary part. 

/ Separates specifications and generates a carriage return and linefeed. 

( ) Enclose a group field specification so that a replicator can be used to signify the 

multiple occurrence of this group of specifications. Also enclose complex specifica- 
tion preceded by C. 

, Separates specifications 

" " Enclose literal specifications. 

Apostrophe is used for special string characters (e.g., '40) 
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The format symbols are combined according to certain rules to form the following types of 
specifications: 

literal specification 
string specification 
numeric specification 

The symbols X, I, $, and literal strings are considered editing symbols and may be interspersed 
freely in any specification. 



Literal Specification 

This specification contains only the editing symbols X, I, $, and literal strings. When a literal string 
is encountered in a format string, the characters between quotes are printed. For instance, 

"THIS IS A LITERAL STRING" 

When the characters I and $ are encountered in a format string, the literal characters "I" and "$" 
respectively are printed. 

Each X in a format string causes a single blank character to be printed. 

Replicators may precede an X, I, or $ in a format string: 

21 equivalent to II 

3X equivalent to XXX 

2$5X equivalent to $$XXXXX 

String Specification 

In a string specification, any combination of editing symbols and A's (with or without replicators) 
is permitted. At least one A must be present to signify a string specification. The matching item 
in the print using list must be a string value; it is printed left-justified with blank fill on the right. 
If necessary, the string value is truncated on the right to fit in the field. For example, 

3A (prints 3 characters adjacent) 

AXAXA (prints 3 characters separated by blanks) 
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Examples 



10 DIM A$U0],B$t3] 

20 LET A$:• , ABCDEFGH1J• , ,B$: ,, ABC• , 

30 PRINT USING "3X3A3X ,AXAXAX" ;B$, "UVWX" 

40 PRINT USING 50|A$ 

50 IMAGE "ALPHA STRI NG" ,3X1 0A 
>RUN 

ABC U V W 
ALPHA STRING ABCDEFGHIJ 

Numeric Specification 

The specification for a numeric field other than complex consists of the symbols S, M, D, and 
E. S and M may be used to position the sign, D's are used to indicate the positions of the digits, 
the "." is used to position the decimal point, and E may be used to specify that an exponent field 
is to be printed. The editing symbols may be freely inserted into a numeric field. The specifica- 
tion for a complex field usually consists of two numeric specifications combined in a special way 
that is described in detail later. 

Generally, numbers are rounded when being converted for formatted output. 

In all numeric specifications (except the imaginary part of a complex specification) printing of 
signs is handled by the characters S and M, according to the following rules: 

1. If an S appears before all D's and any decimal point, the sign (whether + or -) is printed im- 
mediately preceding either the most significant digit or the decimal point, whichever is 
further to the left. 

2. If an S appears after any D's or to the right of the decimal point, the sign is always printed in 
that particular position (i.e., a fixed sign). 

3. If an M appears anywhere in a specification, either a blank is printed in that position (if the 
number is positive or zero) or a "-" is printed in that position (if the number is negative). 

4. If no S or M appears anywhere in the specification, the number is printed as specified (if the 
number is zero or positive). If the number is negative, the specification is treated exactly as 
if the first D were replaced by an S, provided at least one D precedes the decimal point. 

5. Only one S or M is allowed per specification. 

If the field specified by any numeric specification is not large enough to hold the most significant 
digits of a number to be printed, the number is printed alone on the next line preceded by two 
asterisks. It is printed in a standard format according to type as if generated by a PRINT statement. 
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INTEGER SPECIFICATION. Any combination of editing symbols and D's (with or without rep- 
licators) is allowed in an integer specification, but at least one D must be present. One S or M can 
appear. The number is printed right-justified, one digit per D with leading zeros suppressed and 
the fractional part (if any) rounded to the nearest integer. 



Examples 

10 PRINT USING 20; - 1 , 1 , 5400, - 1 9 .3 0 1 , - 74 , 1 03 . 65 
20 IMAGE XDXDXD,DM2DX,S4D,3X5D,DDDDM,X$4D 
>RUN 

- 1 1 +5400 -19 74- $ 104 



Note that the fractional part of decimal numbers are dropped after rounding. 



FIXED SPECIFICATION. Any combination of editing symbols and D'S (with or without repli- 
cators) is allowed in a fixed specification, but at least one D and only one period must be present. 
One S or M can appear. The number is printed anchored around the position of the decimal point 
(which is printed) with leading zeros suppressed. If necessary, the fractional part of the number is 
rounded or filled with zeros before being printed to the right of the decimal point. One digit or 
blank is printed per D. Trailing zeros are printed. 



Examples 

10 PRI NT USING 20; 7032,-4.293 74,21,- .201 ,470.32, 1 .3 
20 IMAGE 3XDS3 D.5D.MDD .D.3D.X1 0D,DDD .DD,XMDDD.4D,DD 

>RUN 

7+032.00000- 4.3 21. 0300220000 -.00 470.3230 2 



FLOATING SPECIFICATION. A floating specification is an integer or fixed specification followed 
by E. Editing symbols may be interspersed freely. The most significant digits are printed from left 
to right, and an exponent is printed as E±dd. If a negative number is to be printed in floating point 
format, there must be an S or M in the specification. 
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Examples 



10 PR I NiT USING 20; 74.92,-400000, (32. 1,4), 1 El 2 , 1 .5L21 
20 IMAGE DDEX,*!.DDEXX,4DEX,2(5D.£X) 
>RUN 

75E+00 -.40E+0S 3210E-02 10000. E+08 15000. E+ 1 7 



Note that the imaginary part of the complex number is not printed. 



COMPLEX SPECIFICATION. The real part of a complex number can be printed using an integer, 
fixed, or floating specification. The imaginary specification is preceded by a + or - and consists of 
an integer, fixed, or floating specification in which there is no S or M. The only difference is in the 
treatment of the sign. The + is treated exactly like an S; the - is treated as an X if the number is 
not negative and as an S if the number is negative. 

To print both the real and imaginary parts of a complex number, the real specification precedes the 
imaginary specification in the same format with no intervening comma. 

An I is not printed automatically to indicate imaginary, but if desired, can be included in the format 
string as a literal or by using the I symbol. 



3 +2 .0 .IE+01 .003-4.01 .003 4.01 21 

10 PRINT USING M XXXDD,+ DD"; (21,0), (3,-10) 
>RUN 

21-10 

The I in the format specification is printed as "I"; it may be used to indicate that the imaginary 
part of the number is being printed. The second example prints the real part of the first number, 
and the imaginary part of the second. 

The C specification is a second method of formatting complex numbers for output; this results in 
formatted output in a form similar to the standard PRINT format (i.e., parentheses enclosing two 
numbers separated by a comma). The C specification is the letter C followed by two noncomplex 
numeric fields (integer, fixed, or floating) which are separated by a comma and enclosed in paren- 
theses. The first field defines the format of the real part of the number and the second defines the 
format of the imaginary part. Both fields must be present. If a noncomplex number is printed 
using this field, the imaginary part is assumed to be zero. 



Examples 



10 PRINT 
30 IMAGE 
>RUN 



USING 3 0; (3,2) , (0, 1 ), ( .003,-4), ( .003, 4), 21 
3 Df DDX,3D.D-.DE,2(X.3D-D.D,I ) ,XXXDD 
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Examples 



10 PRINT USING 20; (3,2), (0, 1), C. 003, -4), (3, -4), 21 

20 IMAGE C(3D, SDD), C(3D.D,M.DE) , C(DD.MD.D) , CCD . E.MDI ) , C(DD ,SXXDD ) 
>RUN 

( 3, +2)< .0, .1E+01X 0, -4.0X3. £+00,-41X21, +0) 



In these examples, the same expressions printed in the first example are printed with the C specifi- 
cation. With this specification, the imaginary part may have an M or an S. 



COMPRESSED FORMAT SPECIFICATION. The compressed specification consists of one K and 
any editing symbols. It prints a number using only as many characters as are required. The result- 
ing format is identical to that used in the simple PRINT statement (Section II), except that no 
blanks appear and trailing zeroes and decimal points are deleted. This specification is useful when 
numeric data is to appear within text. 



Examples 



10 PRINT USING 20;25 
20 IMAGE M I HAVE" f XKX, "BANANAS" 
>RUN 

I HAVE 25 BANANAS 



Separators 

BASIC/3000 format strings have two separators: the comma (,) and the slash (/). A separator is 
required between two adjoining specifications. The slash, in addition to separating specifications, 
also generates a carriage return and linefeed. Two separators can be adjacent. The meaning of 
adjacent commas is equivalent to a single comma. 
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Examples 



10 PRINT USING 20*25, 10, -5, (1,250), 25 75 .5, 2. 5 

20 IMAGE DDX.E/4D,/,SDDX,D+3D.E//"H1WAY , V4DX,,SD.E 
30 PRINT USING "5A" ; "ABCDE" 
>RUN 

25 .E+00 
10 

-5 1+250. E+00 
HI WAY 

25 75 +3. E+00 
ABCDE 



Each slash in the format string causes a carriage return and linefeed. 



Grouping 

BASIC/3000 format strings allow one or more field specifications to be enclosed by parentheses and 
preceded by a replicator to indicate the repetition of the entire enclosed set of specifications. This 
newly grouped field must be separated from other specifications of the format string by a separator. 
Grouped specifications can be nested indefinitely. 



Examples 



5 LET ASr-A-.BSr-B", C$ = W C M 
10 PRINT USING 20;3000, 300, AS, 400, B$, 530, C$,1 .5,2.4,3.3,6.6 
20 IMAGE 4D4X ,3<3D.D/5X,3A) /2(2(D.DX> /) 
>RUN 

3000 300.0 
A 400.0 
B 5 00.0 
C 

1.5 2.4 
3.3 6.6 
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The IMAGE statement in the example above is exactly equivalent to the following IMAGE state- 
ment: 

5 LET A$="A" f B$="B",C$="C" 

10 PRINT USING 20;3000, 300, A$,400,B$, 520, C$, 1 .5,2.4,3.3,6.6 
20 IMAGE 4D4X,3D.D/5X,3A,3D.D/5X,3A,3D.D/5X,3A/D.DX,D.DX/D.DX,D.DX/ 
>RUN 

3000 300.0 
A 400.0 
B 500.0 

C 

1.5 2.4 
3.3 6.6 



Carriage Control Characters 

The carriage control characters are 

+ suppress linefeed 

suppress carriage return 
# suppress linefeed and carriage return 

These characters specify action to be taken following execution of the PRINT USING statement. 
They specify whether a carriage return and linefeed are generated after the last item is printed. If 
no carriage control characters are present, a carriage return and linefeed will be provided auto- 
matically following each line. This is the only automatic line control in PRINT USING; within a 
format specification, the user is responsible for supplying carriage returns and linefeeds with 
slashes. 

Carriage control characters are executed after all other formatted output, but they must be speci- 
fied first in the format string. 



Example 

10 PRINT USING S3 D. 2D, 3XS6D"; 125,625 
20 PRINT USING "X3 D .DEX , 1 0A" ; 125, "E STRING" 
>RUN 

+125 .00 +625 125.0E+00 E STRING 

The carriage control character "#" in line 10 suppresses the automatic carriage return and linefeed 
following that PRINT USING statement, and causes the next PRINT USING statement to print on 
the same line. 
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SECTION X 
Segmentation 



Because the maximum size of a BASIC/3000 program is necessarily limited by memory resources, 
BASIC/3000 provides language facilities for segmenting programs into units that can call each 
other. Each unit or subprogram must be saved in the user's library; from there it may be called by 
the currently executing program into the user's work area. 

Two statements are used for interprogram transfer: INVOKE and CHAIN; and one statement, 
COM, allows variables to be used in common by several programs. 
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CHAIN Statement 



The CHAIN statement terminates the current program and begins execution of another program, 
optionally starting at a specified statement number. 



Form 

The forms of CHAIN are: 

CHAIN string expression 

CHAIN string expressionjnteger expression 

The string expression, when evaluated, is the name of a BASIC/3000 program that is in the user's 
library. This may be a fully qualified file name (see Section VIII, Files). When evaluated, the 
optional integer expression is a label in the called program. If present, execution begins at the first 
executable statement at or after the label ; the exact label need not be present in the called pro- 
gram. If omitted, execution begins at the first executable statement in the called program. 



Explanation 

CHAIN calls the program identified by the string expression, and it replaces the current program. 
When the program called by CHAIN finishes execution, it terminates and does not automatically 
return to the calling program. The called program may call another program, including the orig- 
inal calling program, with another CHAIN statement or an INVOKE statement. 

Only variables declared in a COM statement are saved during a CHAIN operation. All variables and 
arrays of the current program that were not declared in COM are lost when the new program begins 
execution, and all files opened in the current program are closed. 
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Examples 



MAIN 

10 REM . .PROGRAM MAIN 
20 LET X=200,A=X**3 
30 PRINT "A=";A 

40 PRINT " LEAVE MAIN AND ENTER SUBA AT LINE 
5 0 CHAIN "SUBA" ,3 0 

60 REM.. THIS STATEMENT IS NEVER EXECUTED 



SUBA 

10 REM.. PROGRAM SUBA 

20 PRINT "THIS STATEMENT IS NOT EXECUTED" 
30 PRINT " ENTER SUBA - LINE 30" 
40 LET B=125,C=B**2 
50 PRINT "C=";C 

60 PRINT " END OF SUBA - TERMINATE HERE" 

70 END 
>RUN MAIN 
MAI N 

A= 8.00000E+06 

LEAVE MAIN AND ENTER SUBA AT LINE 30 
ENTER SUBA - LINE 30 
C= 15 625 

END OF SUBA - TERMINATE HERE 



The main program, MAIN, calls program SUBA with a CHAIN command in line 50. Execution of 
SUBA begins in line 30, and execution terminates with the last line of SUBA. None of the variable 
values from MAIN are saved following execution of CHAIN. 
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INVOKE Statement 



The INVOKE statement is similar to the CHAIN statement, except that the calling program is sus- 
pended rather than terminated and resumes execution when the program called by INVOKE ter- 
minates. The called program can be explicitly terminated with an END statement, otherwise it is 
implicitly terminated by the end of the program. In both cases, control returns to the suspended 
program that performed the INVOKE. If the called program is terminated by a STOP statement 
or a terminal error, the entire run is terminated including any suspended programs. 



Form 

The forms of INVOKE are: 

INVOKE string expression 

INVOKE string expression, integer expression 

The string expression evaluates to the name of a BASIC/3000 program in the user's library. It may 
be a fully qualified file name. The integer expression evaluates to the label of a starting statement. 



Explanation 

The statements and variables of the current program are saved in a temporary file created by 
BASIC/3000 so that execution of the program can be continued at a later time. Variables declared 
in COM statements are passed to the program called by INVOKE. Files opened in the current pro- 
gram are not closed by INVOKE. 

Execution of the new program begins at the first executable statement in the program or, if speci- 
fied, at or after the label. The exact label need not be present in the called program. 

When an implicit or explicit END statement in the called program is executed, control returns to 
the suspended program at the point immediately following the INVOKE statement. A STOP state- 
ment in the called program will, however, terminate the entire run including any suspended pro- 
grams. 

INVOKE operations can be nested; that is, a program that has been called by INVOKE can itself 
invoke another program including a recursive INVOKE of itself. 
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Examples 



MAI NX 

10 REM.. PROGRAM MAI NX 

20 LET A=25 

3 0 INVOKE "SUBY" 

40 PRINT "CONTROL RETURNS TO MAI NX" 
50 PRINT "C=A*10 = ";A*10 
SUBY 

10 REM.. PROGRAM SUBY 

20 PRINT "EXECUTION OF SUBY BEGINS " 

30 PRINT "B=";8**-3 

40 PRINT " END OF SUBY - RETURN TO MAI NX" 
5 0 END 

>RUN MA I NX 
MAI NX 

EXECUTION OF SUBY BEGINS 
B= 1 .95313 5-03 

END OF SUBY - RETURN TO MAI NX 
CONTROL RETURNS TO MAI NX 
C=A*12= 250 



MAINX uses an INVOKE command in line 30 to call for execution of SUBY. Execution begins with 
the first executable statement in SUBY. When SUBY terminates, control returns to line 40 of 
MAINX. The value of the variable A has been saved during execution of SUBY. 



EXAMPLE USING CHAIN AND INVOKE 

The example below has four programs: A, B, C, and D. All four programs have been saved in the 
user's library. The command RUN A brings A into the user's work area as the current program. 
With each successive CHAIN or INVOKE, a new program replaces the previous program in the work 
area; in this case A is the final as well as the first program in the work area. 

When D terminates it returns to C, and when C terminates it returns to A because C was chained to 
by B which was invoked by A. 
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10 REM.. PROGRAM A 

20 PRINT " ENTER PROGRAM A " 

30 INVOKE "B" 

40 PRINT "BACK IN PROGRAM A - TERMINATE 



10 REM.. PROGRAM B 

20 PRINT " ENTER PROGRAM B" 

30 CHAIN "C",30 

40 REM.. CONTROL SHOULD NEVER RETURN TO THIS POINT 

41 REM. .DUE TO CHAIN IN LINE 30 
50 PRINT " NOT TO BE EXECUTED - B" 



10 REM. .PROGRAM C - EXECUTION STARTS IN LINE 30 
20 PRINT " NOT TO BE EXECUTED - C 
30 PRINT " ENTER PROGRAM C - LINE 30" 
40 INVOKE "D M ,25 

50 PRINT "BACK IN C - RETURN TO A" 

60 REM.. END IN LINE 70 WILL CAUSE RETURN TO PROGRAM A 

61 REM.. BECAUSE PROGRAM B WAS INVOKED BY PROGRAM A 

62 REM.. NOTE THAT THE "END" IS UNNECESSARY 
70 END 



D 

5 REM. .PROGRAM D - EXECUTION STARTS IN LINE 25 
15 PRINT "NOT TO BE EXECUTED - D" 
25 PRINT "ENTER PROGRAM D - LINE 25" 
35 PRINT "RETURN TO PROGRAM C" 

45 REM.. IMPLICIT END WILL CAUSE RETURN TO PROGRAM C 
47 REM NOTE THAT EXPLICIT "END" WOULD DO THE SAME 

>RUN A 

A 

ENTER PROGRAM A 

ENTER PROGRAM B 

ENTER PROGRAM C - LINE 30 

ENTER PROGRAM D - LINE 25 

RETURN TO PROGRAM C 

BACK INC- RETURN TO A 

BACK IN PROGRAM A - TERMINATE 
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Files and Segmentation 



Within a program, a file is referenced by its file number as determined by its position in the FILES 
statement (see Section VIII). When programs call one another with CHAIN or INVOKE, it is pos- 
sible to reference files that were declared with FILES statements in other programs. 

BASIC/3000 maintains an internal file numbering scheme that assigns an internal file number to 
every file declared in a FILES statement. For main programs, these numbers are the same as the 
file numbers to which the user refers. Files declared in a program called by INVOKE are assigned 
internal file numbers beginning with a value one greater than the last internal file number. Files 
declared in a program called by CHAIN are assigned internal file numbers beginning with the same 
number as the files in the calling program. Whether the program is a main program, is called by 
INVOKE, or is called by CHAIN, the local file numbers used to refer to files within each program 
will begin with 1. 

When a program calls another program with INVOKE, all the files in the calling program remain 
open; when a program calls with CHAIN, the files in the calling program are closed. 

To illustrate: 

Ml 

10 REM MAIN PROGRAM Ml 
20 FILES A,B,C 
3 0 INVOKE "M2" 

M2 

10 REM SUBPROGRAM M2 
20 FILES D,E,F 
3 0 CHAIN "M3" 

M3 

10 REM SUBPROGRAM M3 
20 FILES G,H 



The internal and local file numbers for this group of programs is: 
Internal File Numbers Local File Numbers 



A = 1 


Ml 


B = 2 


A = l 


C = 3 


B = 2 




C = 3 


D = 4 


M2 


E = 5 


D = 1 


F = 6 


E = 2 




F = 3 


G = 4 


M3 


H = 5 


G = l 


(6 is unassigned) 


H = 2 
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By using the #integer file designator in a FILES statement, a program may reference files declared 
in another program that invoked it. The value of the integer is the internal file number of a pre- 
viously declared file; the position of the designator in the FILES statement is used to assign the 
local file number. 



Examples 



Ml 

10 FILES A,B,C 
20 PRINT #1,1;"FILE A" 
30 PRINT #2, 1;"FILE B " 
40 PRINT #3,1;"FILE C" 
5 0 INVOKE "M2 W 



M2 



10 


FILES D,E,F, 


#3 




20 


DIM A$[6) 






30 


PRINT #1,1$" 


FILE 


D" 


40 


PRINT #2, 1 ; " 


FILE 


E" 


50 


PRINT #3,1;" 


FILE 


F" 


S0 


READ #4, 1 ;A$ 






70 


PRINT A$ 






80 


CHAIN "M3" 







10 FILES 6,H,#1,#2 

20 DIM A$[S],B$[6] 

30 PRINT #1,1;- FILE G" 

40 PRINT #2,1;"FILE H" 

50 READ #3,1;A$ 

60 READ #4, 1 ;B$ 

70 PRINT A$,B$ 



>RUN Ml 
Ml 

FILE C 

FILE A FILE B 



Within M2, reference to local file #4 is the same as a reference to internal file number 3 (file C). 
However, the statement FILES D,E,F,#3 is not the same as the statement FILES D,E,F,C. This 
latter statement, if specified, would have treated file C as a logically different file from file C in 
Ml; the file would have been reopened with new buffers and access restrictions. By using #3, there 
is only one logical file C and any accessing affects that file, and the file is not reopened. In the 
same way, the statement FILES G,H,#1,#2 in M3 differs from a possible statement FILES G,H,A,B. 
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COM Statement 



The COM statement is used to pass data values between segmented programs. Variables specified 
in a COM statement are placed in a common area so that values assigned to these variables in one 
program will be retained when transferring to another program with CHAIN or INVOKE. This 
area is known as a COM block. There may be more than one COM block, and it may or may not 
have an identifying label. 

COM statements must precede all DIM, Type, or DEF statements in a program. All typing and 
dimensioning of variables is done within the COM statement, and any variables that appear in a 
COM statement must not also appear in a type or DIM statement in the same program. 

BASIC/3000 permits ten COM blocks for each run, one unlabeled and nine labeled uniquely with 
the digits 1 through 9. 



Form 

The forms of the COM statement are: 

COM com item list 

COM (nonzero digit )com item list 

The com item list consists of a list of variable declarations. Simple variables are indicated by the 
variable name; arrays are indicated by the array name and a bounds indicator. The bounds indi- 
cator is equivalent to the dimension specification used in a DIM statement if the block is being 
created; it indicates only the number of dimensions if the block has been created and is currently 
active. The number of dimensions are specified with (*) or (*,*). 

The type of items in the com item list is assumed to be real unless the variable name contains a $ to 
indicate a string variable, or the variable is preceded by a type specifier (INTEGER, LONG, COM- 
PLEX, or REAL). The type specifier assigns that type to all succeeding variables until the end of 
the list or the next type specifier or string variable. 

The optional block indicator is specified as a nonzero digit between 1 and 9. This assigns a label to 
a block being created, or specifies an existing labeled block. 



Explanation 

Programs execute in BASIC/3000 on a dynamic level basis. The original program run with the RUN 
command starts at level 1. When a CHAIN is executed, the new program executes also at level 1 
since the old program terminates. However, when an INVOKE is executed, the new program exe- 
cutes at level n+1 where n is the level of the invoking program. When control returns to the invok- 
ing program, the level is reduced to n. 
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COM blocks become active whenever a program declares a COM block that is not currently existing 
or active. COM blocks created at level n are active until the dynamic level drops to n-1 or the run 
terminates. 

If a COM statement references an inactive COM block, then numeric bounds for the arrays and 
strings are specified as in a DIM statement. If, however, a COM statement references an active 
block, then it need only indicate the number of dimensions. For a one-dimensional array or a 
string variable, the variable name is followed by (*); for a two-dimensional array or a string array, 
the variable name is followed by (*,*). The (*) can be omitted for simple string variables and will 
be assumed. Numeric bounds may be specified for an active COM block, but in this case they must 
be identical to the original COM statement bounds. 



CORRESPONDENCE RULES. All variables in COM statements that reference an active COM block 
must match exactly in type, number of dimensions, and order within the COM statement. Also, if 
dimension size is specified instead of the *, these must match exactly. The names of corresponding 
variables need not be the same since equivalence is based on the order of appearance of the vari- 
ables in the COM statements. A COM statement defining an active block must contain the same 
number of elements as the COM statement that created the block. More than one COM statement 
in a program can define the same block if the statements are contiguous. 

The order of elements in a COM statement, or in more than one contiguous COM statement, im- 
plies the order of the variables in the COM block. 

The rules governing correspondence between COM statements are checked when a CHAIN or IN- 
VOKE statement is executed. If any of these conditions is not met, a terminal error occurs. 



Examples 

Program Al chains to program Bl which in turn chains to program CI: 



10 COM B,B$15], C, INTEGER D,E15],L0NG Ft5,2] 

20 C0M<5) Q, COMPLEX A,A$[2,2],P 

30 LET B = 10 # B$= ,, ABCDE",C=20.5,D=1 

40 MAT READ E,F 

5 0 DATA 1 ,2,3,4,5,1 .01 LI 1,5. 2L10, 1 .5 7L 1 1 , 1 . 76L1 1 , 1 . 76L-9, 1 .53L 1 1 

60 DATA 1 .575L-4, 1 .57L6, 1 .57L-5, 1 .752L10 

70 LET Q=1954.75,A=C12.3,4),P=3.14 

80 MAT READ AS 

9 0 DATA "AB","CD" 

100 CHAIN "Bt M 
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10 COM T,C$[* ),Q,I NTE6ER F ,Dl * ] , LONG Fit*,*] 
20 PRINT "START B i " 
30 PRINT T,C$,Q,F 
40 MAT PRINT D; Fl 
50 CHAIN "CI" 



10 C0MC5) A, COMPLEX B,C$t*,*],D 
20 PRINT "START CI" 
30 PRINT A,B,D 
40 MAT PRINT C$ 



>RUN Al 
Al 

START Bl 

10 ABCDE 20.5 1 

1 2 3 4 5 



1.01 0000000000000L+ 11 5. 200000000000000L+ 1 0 

1 . 57 000000 0000000L+ 11 1 . 7 600 00 000 000000L+ 1 1 



1 . 7 6000000000000 0L- 09 
1. 57 50 000000 00000L-04 
1 . 57 00000000 0000 0L- 05 



1 . 53000000000 0000L+ 1 1 
1 • 570000000000000L+06 
1 .7 52000000000000L+10 



START CI 

1954.75 < 1 . 23000E+01, 4.00000E+00) 3. 14 

AB 



CD 



In this example, program Al creates the unlabeled COM block and also COM block 5. Program Bl 
references the unlabeled COM block and prints the data assigned to that block in Al. Program CI 
references COM block 5 and prints the data assigned to that block in Al. In both Bl and CI, the 
number of dimensions of subscripted COM variables is indicated by (*) or (*,*). 
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Assume that program Dl chains to program El: 



Dl 

10 C0M(9) A[3, 5], INTEGER D(6,S] 

20 MAT A=ZER 

30 MAT D=IDN 

40 CHAIN "El- 



El 



10 C0M(9) BI3, 



20 


MAT 


PRINT 


>RUN 


D 1 




Dl 






0 


0 


0 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


1 


0 


0 


0 


1 


0 


0 


0 


0 


0 


0 


0 


0 


0 



1, INTEGER P[6,61 
LIN(1),P; 



0 


0 




0 


0 




0 


0 




0 


0 


0 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


1 


3 


0 


0 


1 



In this example, program Dl creates COM block 9, and program El references the data in block 9. 
Actual numeric bounds are specified in the COM statement in El. This is legal only if the bounds 
are identical to the original bounds specification. 

In the following example, execution of the four programs starts in W: 



10-12 



10 REM PROGRAM W 

20 C0M(3) Bt5] 

3 0 FOR 1=1 TO 5 

40 B 1 1 ] =1 

5 0 NEXT I 

60 INVOKE "X" 

70 PRINT LIN(5);"BACK IN W - B= 
80 MAT PRINT B 
90 CHAIN "Z" 



10 REM.. PROGRAM X 

20 C0M(3) A[* ] 

30 COM (4) LONG C13,2] 

40 PRINT LIN(5)j M IN X — A = ";LINC1> 

5 0 MAT PRINT A 

60 FOR 1=1 TO 5 

70 All ] = 10*1 

80 NEXT I 

90 FOR 1=1 TO 3 
100 FOR J=l TO 2 
110 ClI , J]=10*I+J 

120 NEXT J 

13 0 NEXT I 

140 INVOKE "Y" 

150 PRINT LIN(5);"BACK IN X C="jLIN(l) 

160 MAT PRINT C 

170 PRINT LI N( 1 ) ; "RETURN TO VT 



10 REM.. PROGRAM Y 

20 C0M(4) LONG F[* f * ] 

30 PRINT LIN(5);"IN Y F=";LIN(1) 

40 MAT PRINT F 

5 0 FOR 1=1 TO 3 
60 FOR J=t TO 2 
70 Ftl ,J]= 1 00*1+1 0*J 

80 NEXT J 

90 NEXT I 

100 PRINT LI N ( 1 ) ; "R ETUR N TO X" 



10 REM.. PROGRAM Z 
20 COM(4) INTEGER I,J,K 
30 PRINT LIN(5);"IN Z-- C0MC4 ) = "; LI N ( 1 ) 
IF UND(I) THEN PRINT ' 
ELSE PRINT " I = ";I[ 
60 IF UND(J) THEN PRINT ' 
70 ELSE PRINT " J=";J 
80 IF UND(K) THEN PRINT ' 
90 ELSE PRINT " K = ";K 
100 PRINT "TERMINATE IN V 



40 

50 



I UNDEFINED' 
J UNDEFINED' 



K UNDEFINED* 
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>RUN W 



IN X -- A= 
1 2 



IN Y - - F= 

1 . 1 00000 000000 000L+0 1 
2. 100000000000000L+01 
3. 1 00000000000000L+0 1 



1 . 200000000000000L+0 1 
2. 20 000000 00 0000 0L+0 1 
3. 2000 0000000 000 0L+0 1 



RETURN TO X 



BACK IN X - - C= 
1. 1 00000000000000L+02 
2. 1 00000000000000L+02 
3. 100000000000000L+02 



1 • 20000000000 0000L+ 02 
2. 200000 00000000 0L+02 
3. 20 00 00 00 00 0 000 0L+ 02 



RETURN TO W 



BACK IN V - B= 
10 20 



30 



40 



50 



IN Z-- COM (4)= 

I UNDEFINED 
J UNDEFINED 
K UNDEFINED 
TERMINATE IN Z 



Note that Z can create a new COM block 4 since execution has dropped below the dynamic level 2 
at which X created the first COM block 4. 
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The following three examples illustrate illegal COM usage : 



Assume that program Fl invokes program Gl: 



10 COM(l) Atl0,10),LONG BU0.10] 
20 MAT A=C0N 
30 MAT B=ZER 
40 INVOKE "Gl" 



Gl 

10 C0MC1) LONG Dt*,*J,REAL El*,*] 

20 MAT PRINT D,E 
>RUN Fl 
Fl 

COM NOT SAME AS FIRST OCCURENCE IN Gl 



This is illegal because the corresponding variables in the two COM statements do not agree in type 
and order. If the type references were interchanged in program Gl, this would be a legal example. 

Assume that program HH chains to program JJ: 



HH 

10 C0MC7) A$[3,5],B12,5] 
20 MAT B=IDN 
30 MAT READ A$ 

40 DATA "ABCDETFGHIJTLMNOP- 
50 CHAIN M JJ" 



JJ 

10 C0M(7) Q$t* },Dt*,*l 

20 PRINT 8$ 

30 MAT PRINT D 
>RUN HH 
HH 

COM NOT SAME AS FIRST OCCURENCE IN J J 



This is illegal because Q$ is a simple string variable, whereas A$ is a string array. 
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Assume that program Kl invokes program PI: 



10 C0M(8) X[*,*l 
20 INVOKE "PI" 
3 0 MAT PRINT X 



PI 

10 COM (8) Yt 1 0,3 ] 
20 MAT Y=ZER 
>R U N K 1 

MISSING SUBSCRIPT SPECIFICATION IN FIRST OCCURENCE OF COM IN Kl 



This is illegal because the creator of a COM block must specify the actual physical size of arrays 
and strings. If, however, PI invoked Kl this would be a legal example. 
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SECTION XI 

Communication with Non-BASIC Programs 



A BASIC/3000 user can access an SPL/3000 procedure or a FORTRAN/3000 subprogram from a 
BASIC program with the CALL statement. As mentioned in Section I, he can enter MPE/3000 with 
the SYSTEM command or by pressing the break key. Another method for using the facilities of the 
MPE/3000 Operating System is with the SYSTEM statement. The SYSTEM statement enters an 
MPE system command dynamically into a BASIC/3000 program. 
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CALL Statement 



The CALL statement calls for execution of an SPL/3000 procedure or a FORTRAN/3000 subpro- 
gram that exists in an MPE/3000 segmented procedure library (SL). Parameters may be passed to 
the called procedure or subprogram. The search for an external parameter begins in the group 
library. (See MPE/3000 Operating System, Reference Manual. 

Care should be taken when using SPL or FORTRAN since these procedures are not controlled by 
the BASIC/ 3000 Interpreter and errors in them can propagate into the Interpreter causing indeter- 
minate results. 



Form 

The forms of CALL are 

CALL procedure name 

CALL procedure name(actual parameter list) 

* procedure name 

* procedure name(actual parameter list) 

The procedure name identifies the procedure or subprogram being called. The optional actual 
parameter list may contain numeric or string expressions, variables and array names followed by 
bound indicators (*) or (*,*). Anything that can be passed to a function (see Section VI) can be 
passed in a CALL statement. 

The asterisk may be used interchangeably with CALL. 



Explanation 

CALL transfers control to the beginning of the specified procedure. If parameters are specified, 

they are passed by reference as address pointers rather than by value. If the parameter is an expression, 

a temporary variable is created by the Interpreter to contain the value of the expression. 

In addition to the parameter addresses, BASIC/3000 passes the number of parameters and also code 
words describing the parameters (one code word for every three parameters). The code words may 
be used by the procedure to insure that the calling sequence is correct. 

The parameter information used by the program or procedure being called is setup by the BASIC/ 3000 
Interpreter when the CALL statement is executed. Depending on the called program, values 
may be returned to the BASIC program through the specified parameters. The formats of the 
parameter address table and of the parameter values is contained in Appendix F, Parameter Format. 
This information is useful primarily if the BASIC user is writing or modifying the called program. 
Otherwise, he only needs to know the type and the order of the parameters used in the called 
program in order to specify them in the CALL statement. 
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Examples 

The first example calls the FORTRAN segment BOOLEAN containing three subroutines that per- 
form Boolean operations. The first subroutine LAND performs a logical AND, the second LOR 
performs a logical OR, and the third LNOT performs a logical NOT. Each subroutine is called 
with a different CALL statement and the result is printed upon return to BASIC. 

The second example calls the SPL procedure WHOM from a BASIC program. WHOM returns the 
user's name, group, accout, and home group from the identification codes entered by the user when 
he logs on. This information is derived by WHOM using the MPE/3000 system intrinsic WHO. 
WHO is an option variable procedure and, as such, cannot be called directly from BASIC/3000. 
This example illustrates, among other things, the interface with an intrinsic that cannot be 
referenced directly. 

Each subroutine and procedure is listed following the BASIC program that calls it, and this list is 
followed by an SL (segmented procedure library) list requested after the segment is added to the 
SL. 

1. Calling FORTRAN Subroutines 



10 INTEGER X,Y,Z 
20 LET X = 1,Y=0 
3 0 *L0R(X,Y,Z) 
40 PRINT Z 
>RUN 
1 

10 INTEGER X,Y,Z 
20 LET X = 1,Y=0 
30 CALL LAND(X,Y,Z) 
40 PRINT Z 
>RUN 
0 

10 INTEGER X,Y,Z 
20 LET X=1,Y=0 
30 CALL LN0T(Y,Z) 
40 PRINT Z 

>RUN 

-1 
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The FORTRAN segment containing subroutines LAND, LOR, and LNOT is listed below. The 
comment lines describe the parameter restrictions. Note that all three parameters should be 
integers. 

The user should refer to the FORTRAN/3000 Reference Manual for instructions on writing a 
FORTRAN subprogram. 



SCONTROL USLINIT, NOLIST, SEGME NT =8 OOLEAN 
SUBROUTINE LA ND (A ,B , RESULT ) 



C PERFORMS BOOLEAN-mND ON "A" AND "B", RETURNING RESULT IN 

C "RESULT". "A" AND "B" MUST BE TYPE INTEGER SIMP. VAR . OR 

C EXPRESSION; "RESULT" MUST BE INTEGER SIMP. VAR . (SUBSCRIPTED 

C OR NOT) . 



LOGICAL A, B, RESULT 
RESULT = A .AND. B 
RETURN 
END 

SCONTROL SEGME NT =B OOLEAN 

SUBROUTINE LOR (A ,B , RESULT ) 
C PERFORMS B00LEAN-0R ON "A" AND "B", WITH RESULT RETURNED IN 

C "RESULT". PARAMETERS ARE SmME AS FOR "LAND". 

LOGICAL A, B .RESULT 
RESULT = A .OR. B 
RETURN 
END 

SCONTROL SEGMENT =B00LEAN 

SUBROUTINE LNOT (A ,R ESULT ) 
C PERFORMS BOOLEAN-NOT ON "A", RETURNING RESULT IN "RESULT". 

C "A" AND "RESULT" ARE SAME AS FOR "LAND". 

LOGICAL A, RESULT 
RESULT = .NOT. A 
RETURN 
END 
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After the FORTRAN segment BOOLEAN is compiled, it is added to the SL (Segmented Library) 
using the Segmenter. An SL list is then requested that shows the segment BOOLEAN as the only 
segment in the SL of the user's group/ account STUDENTS.CLASS: 



•FORTRAN BOOLEAN 

PAGE 0001 HEWLETT-PACKARD 32102A.00.2 FORTRAN/3000 TUE, MAR 

19 73, 5:55 AM 

00200000 SCONTROL USLINIT, NOLIST, SEGMENT=BOOLEAN 
END OF PROGRAM 

:SEGMENTER 

SEGMENTER SUBSYSTEM (1.2) 
-USL SOLDPASS 
-SL SL 

-ADDSL BOOLEAN 
-LISTSL 

SL FILE SL. STUDENTS. CLASS 

SEGMENT 0 BOOLEAN LENGTH 30 



ENTRY POINTS 


CHECK 


CAL 


STT 


ADR 


LOR 


141400 


C 


2 


6 


LNOT 


141000 


C 


1 


0 


LAND 


141400 


C 


3 


15 


EXTERNALS 


CHECK 


STT 


SEG 





1 

USED 2200 AVAILABLE 375600 

-EXIT 

END OF PROGRAM 

Notice, the -SL SL command works only if the SL exists. To build an SL enter the command: 

BUILDSL SL [.group] , records, extents 
then enter the - SL SL command. 

Library usage is described in the MPE/3000 Operating System, Reference Manual. 
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2. Calling an SPL Procedure 

The SPL procedure WHOM is called by the BASIC program ZELDA. WHOM returns the user name, 
group, and account with which the user logged on, as well as the user's home group. The BASIC 
program uses this information plus the current time and date from the DAT$ function to print 
output as if from Zelda, the fortune teller. 

The username, account, group, and home group are stored in string variables used as actual parameters 
in the call to WHOM. 

The BASIC program: 



ZELDA 

10 D$=DAT$(1 ,27) 

20 MAT READ M$ 

30 CALL WH0M(U$,G$,A$,H$) 

40 REM 

50 REM 

60 PRINT LIN(2);"I'M ZELDA THE FORTUNE TELLER , " 

70 PRINT "I CAN TELL YOU A LOT." 

80 FOR 1=1 TO 11 

90 IF POSCMStI ],D$t6;3]) THEN 110 

100 NEXT I 

110 PRINT LIN(1);"0N THIS ";W$tI];" " ; DEBS <D$t 1 0; 2 ] ) ; FNC$(D$t 1 0;2 ] ) ; " ," 

120 PRINT "IT'S ";DEB$(D$[20;5]);" O'CLOCK." 

130 PRINT LIN(1);"Y0UR ACCOUNT NAME IS " '34; DEB$(A$) ; '34"," 

140 PRINT "AND YOU'RE IN GROUP " '34; DEB$(G$) ; '34" ." 

150 PRINT LIN(1);"Y0UR SIGN-ON WAS " *34; DEB$(U$) ; '34" ," 

160 IF LENCDEB $(H$) ) THEN DO 

170 IF G$<>H$ THEN PRINT "AND " '34; DEB$(H$) ; '34" IS YOUR HOME." 
180 ELSE PRINT "AND YOU'RE IN YOUR HOME GROUP." 

190 DOEND 

200 ELSE PRINT "AND YOU HAVE NO HOME GROUP." 

210 PRINT LIN(1);"BUT ENOUGH SAID FOR N0W.";LIN(2) 

220 REM 

230 REM ******************** 

240 REM 

250 DEF FNC$(C$) 

255 IF C$="ll" OR C$="12" OR C$="13" THEN RETURN "TH" 

260 IF C$12 ] = "1" THEN RETURN "ST" 

270 IF C$t2] = "2" THEN RETURN " ND" 

280 IF C$12 ]="3" THEN RETURN "RD" 

290 RETURN " TH" 

300 FNEND 

310 DIM D$[27],U$[8 ],A$[8 ],G$[8 ],H$[8 1,M$[ 12,9 ] 

320 INTEGER I 

33 0 DATA "JANUARY" /'FEBRUARY", "MARCH" , "APRIL"," MAY" ," JUNE" ,"JULY" 

3 40 DA TA "A UGUS T" , "S EPTEMB ER " , " OC T OB ER " , " NOVEMBER " , " DEC EMBER " 
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In these examples the user's name is JOHNDOE, his home group is STUDENTS, and his account 
is CLASS. When run under the group STUDENTS, the result is: 



I * M ZELDA THE FORTUNE TELLER , 
I CAN TELL YOU A LOT. 

ON THIS MARCH 30TH, 
IT'S 4:35 O'CLOCK. 

YOUR ACCOUNT NAME IS "CLASS", 
AND YOU'RE IN GROUP "STUDENTS" . 

YOUR SIGN-ON WAS "JOHNDOE" , 
AND YOU'RE IN YOUR HOME GROUP. 

BUT ENOUGH SAID FOR NOW. 



When ZELDA is run under the group PUB, the result is: 



I'M ZELDA THE FORTUNE TELLER, 
I CAN TELL YOU A LOT. 

ON THIS MARCH 32TH, 
IT'S 4:30 O'CLOCK. 

YOUR ACCOUNT NAME IS "CLASS", 
AND YOU'RE IN GROUP "PUB" . 

YOUR SIGN-ON WAS "JOHNDOE" , 
AND "STUDENTS" IS YOUR HOME * 

BUT ENOUGH SAID FOR NOW. 
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The SPL procedure WHOM, compiled into segment WHOMSEG, is listed below: 



$C0NTR0L SEGMENT:: WHOMS EG 

SCONTROL USLINIT, N0L1ST, SUBPROGRaM 

BEGIN 

PROCEDURE WHOM (USER NAME, L0G0NGR0UP, LOG ONACCT ,HOMEGROUP) ; 

BYTE ARRAY US ER NAME, LOGO NGROUP , LOG ONACCT ,H0MEGR0UP; 

BEGIN 

EQUATE C0DES3 = [ S/l ,5/1 ,5/1 ], «CODEWORD FOR THREE STRINGS>> 

CODE1=[6/1,10/01; «CODEWORD FOR ONE STRI NG>> 

INTEGER DELTAQ=Q-0; <<DELTA-Q IN SThCK MARKER>> 

INTEGER POINTER NUMBER ; «WILL POINT TO # OF PARAMS PhSSED. 

" NUMBER ( 1 ) " AND " NUMBER (2)" ARE 
CODEWORDS PASSED BY INTERPRETER » 

INTRINSIC WHO; 
<<>> 

©NUMBER: =@DELTAQ-DELTAQ+ 1; 

IF NUMBER =4 AND NUMBER ( 1 ) =C0DES3 AND NUMBER (2 ) =CODE 1 THEN 

IF USERNAME(-2)>=8 AND LOGONGROUP ( -2 ) >- 3 AND LOG ONACCT C-2)> = 8 
AND H0MEGR0UPC-2)>=8 «"...(-2)" IS PHYSICAL LENGTH>> 

THEN BEGIN 

WHO(, , , USER NAME, LOGO NGROUP , LOG ONACCT ,HOMEGROUP) ; 
USERNAME(-l):=LOGONGROUP(- 1 > : = LOGONACCT C- 1 > : =HOMEGROUP< - I ) : = 

<<SET LOGICAL LENGTH OF STRINGS 

END; 

RETURN 0; «IN CASE OF ERROR IN ChLLING SEQUENCE, LET 

INTERPRETER CLEAN UP STACK 

END; «PROCEDURE WHOM» 
END . 



The WHO instrinsic called by WHOM is an option variable procedure provided by MPE/3000. It 
cannot be called directly from BASIC/ 3000, but can be accessed indirectly, as in this example, 
through an SPL procedure. 

The SPL procedure verifies the calling sequence by first checking the number of parameters, then 
by looking at the type codes in the code words. This routine verifies that the physical length of the 
strings is at least large enough to contain the strings returned by WHO. 

When called by WHOM, WHO returns the log-on user name, the account and group names, and the 
user's home group. WHOM passes this information to the BASIC calling program ZELDA after 
setting the logical length of the strings returned by WHO to 8. 

The RETURN 0 (rather than RETURN) leaves the parameters in the stack in case there was some 
error in the calling sequence. Whenever there is a possibility of an error in the calling sequence, 
RETURN 0 should be used to exit from an SPL procedure. 

The user should consult the SPL/3000 Reference Manual for instructions on writing an SPL 
procedure. 
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The file WHOMPROG contains the source of WHOM. WHOM is compiled into the segment 
WHOMSEG. After WHOM is compiled it is added to the SL (Segmented Library) using the 
Segmenter. It is then listed, showing entry points, external procedures, its length, and so forth. 

The command :SPL WHOMPROG requests compilation of WHOMPROG: 



:SPL WHOMPROG 

PAGE ZZZ\ HP3 2 1 Z'Zk ,ZZ,Z 



ZZZZZIZZ QdlM 2 $ CONTROL 3 EGME NT = WHOMSEG 

ZZZZZZZZ ZZZZZ Z 5CCNTR0L USL1.J1T, NOLiST, SUBPROGRAM 

PR I MARY DE STORAGE: SECONDARY DS STOhAGE = %3ib320 

.0. ERRORS ~Zo'£% WO. WV.r; Wl iGS = oZ Z 

PROCESSOR 1H.-.-Z: ZZ: ZZ; ELi-PSED TIME = Z: Z Z: 3 J 

END Or" PR ObR.-.M 



The command : SEGMENTER and subsequent commands add the segment WHOMSEG to the 
account SL called SL.PUB, and then lists the SL: 

: SEGMENTER 

SEGMEMEP. SUBSYSTEM (£.2) 

-SL SL.PUR 

-USL iOLDPASS 

->■ DDSL WHOMSEG 

-LISTSL 

oL riLc SL»PUE»Cl/-.SS 

SEGMENT Z WHOMSEG LENGTH III 

ZMR\ POINTS CHECK ChL STT »DR 
WHOM Z C 1 Z 

EXTER.JhLS ChECK STT SEG 

WHO Z Z ? 



USED 1 6JG riVn.LnELE £7233 

-EXi I 

END Or PROGRmM 
For SL library usage, see the MPE/3000 Operating System, Reference Manual. 
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SYSTEM/RESUME Commands 

The SYSTEM command is used to enter control of the MPE/3000 Operating System. The user's 
activity in BASIC/3000 is suspended and may be resumed with the RESUME command. 

Form 

The form of SYSTEM is: 

SYSTEM 
The form of RESUME is: 

RESUME 

Like all BASIC/ 3000 commands, the prompt for SYSTEM is >. The prompt for RESUME is : 
since RESUME is entered from MPE. 

Explanation 

When SYSTEM is typed, BASIC is suspended and the user enters MPE/3000. A colon (:) is output 
as a prompt signal and he may then type any MPE commands. The BREAK key may also be used 
to suspend BASIC. Usually there is no difference between the BREAK key and the SYSTEM com- 
mand. However, when using BASIC at a terminal that does not have a BREAK key, the SYSTEM 
command is the only way to enter MPE without terminating BASIC. 

When through with MPE, the user returns to the suspended BASIC operation by typing RESUME. 
NOTE: The SYSTEM COMMAND has no effect when running a program in batch mode. 
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Example 



>10 DIM A$(72) 

>20 READ Al ,A2,A3 ,A4,A5 

>SYSTEM 

:BUILD AA;REC=-72,,,ASCII;DISC=100 
:RESUME 

>30 PRINT #1 ,l;Al,A2,A3,A4,A5 

>40 RESTORE #1 

>50 LINPUT #1;A$ 

>60 PRINT A$ 

>70 DATA 10,20,30,40,50 

>80 FILES AA 

>RUN 

10 20 30 43 50 



In this example, the user leaves the BASIC/ 3000 Interpreter to create an ASCII file. This can only 
be done with the MPE BUILD command. After creating the ASCII file, he returns to BASIC with 
RESUME and uses the ASCII file. 
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SYSTEM Statement 



The SYSTEM statement provides a means to dynamically enter an MPE/3000 system command 
from a BASIC/3000 program. The command will be executed at the position in the program 
occupied by the SYSTEM statement. 



Form 

SYSTEM numeric variable, system command 

The system command is specified as a string expression. The initial colon is not included in the 
command specification. 

The numeric variable returns 0 if the command succeeds, or the MPE command error number if the 
command fails. 



Explanation 

When a system command is required within a BASIC program, the SYSTEM statement can be used 
to execute such a command during execution of the BASIC program. 



Example 

10 REM.. USE SYSTEM STATEMENT TO ENTER MPE COMMAND 

20 SYSTEM X,"FILE ABC; DEV=TAPE" 

30 IF X<>0 THEN 120 

40 FILES A 

50 DIM Xt 10] 

60 MAT READ X 

70 DATA 10,20,30,40,50,60,70,80,90,100 
80 MAT PRINT #1;X 
85 ASSIGN *,1 

90 SYSTEM Y, "STORE A;*ABC" 

100 IF Y<>0 THEN 120 
110 END 

120 PRINT "SYSTEM STATEMENT FAILED" 
>RUN 

FILES STORED = 1 
FILES NOT STORED = 0 

The SYSTEM statement in line 20 causes execution of the MPE/3000 FILE command that assigns 
a file ABC to tape. In line 90 the SYSTEM statement causes execution of the MPE/3000 STORE 
command that stores the BASIC file A on the tape file ABC. 
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SECTION XII 
Non-Interactive Programming 



BASIC/ 3000 has the capability to enter programs in a non-interactive manner. This section describes 
how the user may input from a card reader or paper tape, and how he may print output on a line 
printer or punch it on paper tape. It also describes how to input commands or programs stored on 
an ASCII file. 



12-1 



Card Reader/Line Printer 



If the user has access to a card reader and a line printer, he may punch his BASIC program on cards 
and input it through the card reader and receive output on the line printer. In addition to the BASIC 
program cards, he will need a : BASIC command card preceding his program deck. The deck may in- 
clude any BASIC commands as well as statements. 



: BASIC Command 

This command causes the MPE/3000 Operating System to invoke the BASIC Interpreter. The 
: BASIC command has the form: 

: BASIC commandfile, inputfile, listfile 

Any or all of the parameters may be omitted. Position of parameters is significant so commas must 
be included when leading parameters are omitted. Each parameter must be an existing ASCII file 
with the following meaning: 

commandfile BASIC subsystem input; original source of all commands and statements 
of BASIC program. Default is $STDINX. 

inputfile BASIC program input; contains data input to BASIC through INPUT, 

ENTER, and LINPUT statements. Default is $STDINX. 

listfile BASIC program output; receives data output from BASIC program. 

Default is $STDLIST. 

$STDINX is the job/session input device. For example, when input is from the card reader, 
$STDINX is the card reader; when input is from the terminal, $STDINX is the terminal. 

$STDLIST is the job/session output device. When the card reader is used for input, the job/session 
output device is normally the line printer although this may vary between HP 3000 installations. 
When the terminal is used, the output device is also the terminal. 



Examples: 

1. Suppose the user inputs his program from the card reader with output to the line printer, but 
all the data used by the program is stored on an ASCII disc file called IN. He uses the :BASIC 
command: 

:BASIC ,IN 

The comma signals that the commandfile is the default file $STDINX. The default $STDLIST 
is used for output but since this is at the end, no comma is needed. 
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Note that this card, if entered as a command from a terminal, would perform the same function 
if program input and output were both at the terminal with data input from IN. 

2. Suppose the user has a disc file named COMMAND which contains a set of BASIC commands, 
and he wants output on the line printer: 

SF1LE PRINTER jDEV=LP 

:BASIC COMMAND, ,*PRINTER 

The file named PRINTER is associated with the line printer by the :FILE command. It is 
named in the : BASIC command to replace the $STDLIST which, in this case, would have 
been the terminal. COMMAND is a disc file; the commands and statements of the BASIC 
program are read from this file. 



> EOD Command 

If a BASIC card deck contains a RUN command, a >EOD command must follow RUN. When the 
BASIC program contains an INPUT, ENTER, or LINPUT statement input, the input data is punched 
on cards placed between the RUN card and the >EOD card. 

The >EOD command does not produce the same effect as an End-of-File (EOF) command. For 
instance, when an INPUT, ENTER, or LINPUT statement encounters an >EOD in columns 1 
through 4, a run-time error will occur. Furthermore, READ# or LINPUT# statements are not 
affected by >EOD. If the user wants to use >EOD command as an EOF command with the READ# 
and LINPUT# statements, the >EOD must be tested programmatically as follows: 

READ #1; A$ 

IF A$(l,4) = ">EOD" THEN . - . 



Deck Structure 

In addition to the :BASIC command and the program d=?ok, the standard MPE/3000 command 
cards for running a job must be used. These are the : JOB card preceding all other cards in the job, 
and the :EOJ card that terminates the job. Also, an EXIT card must terminate the BASIC program 
deck followed by an :EOD card. 

Besides these cards, any other MPE/3000 cards needed for the job may be included. 
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A deck structure for a BASIC program that requests input with INPUT, ENTER, or LINPUT: 




If no input data is required, the input data cards are omitted, but >EOD is left. The >EOD card 
must follow the input data of each run. 
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Paper Tape 



At a terminal with a paper tape punch and reader, the user may write his programs on paper tape 
and read them from paper tape. Commands are provided by BASIC/3000 that enable the terminal 
user to prepare and use paper tapes. 



PREPARING A PAPER TAPE 

A paper tape may be punched on-line using the PUNCH command, or it may be punched off-line. 



PUNCH Command 

The PUNCH command allows the user to punch a program on paper tape while operating in inter- 
active (on-line) mode at the terminal. Following each line, PUNCH automatically inserts an X-OFF 
character preceding the carriage return and linefeed. A paper tape prepared by PUNCH should be 
read with the TAPE command. 



Form 

PUNCH [first [-last] ] [, OUT = asciifile] [,RECSIZE = number] [,NONAME] 

where first and last specify the range of statements to punch, and asciifile specifies an output file. 
Normally, the output file is the standard list file. If neither first nor last is specified, the entire 
program is punched. If only first is specified, just that statement is punched. Control characters 
are inserted, as required, to allow reading the punched program back through a tape reader. 



Explanation 

The PUNCH command is identical to LIST except that the output is preceded and followed by 
headers and trailers of null characters. If the OUT parameter is omitted, the punched program is 
listed at the terminal. Otherwise it is output to the specified ASCII file. 

If only a portion of the program is to be punched, the first and, optionally, the last lines to be 
punched are specified. If a maximum record size other than 72 is desired, it can be specified with 
the RECSIZE parameter. If NONAME is specified, the program name is not punched; this is useful 
when punching programs to be read back with the XEQ command. 

Each punched record contains a program statement. PUNCH automatically terminates each record 
with an X-OFF character. The X-OFF precedes the carriage return on the tape, and linefeed follows 
the carriage return. The form is: 

output record X-OFF carriage return linefeed 
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Examples: 

PUNCH 10-200 

Lines 10 through 200 of the current BASIC/3000 program are punched on paper tape. 

PUNCH ,0UT=AA 
The entire current program is punched on the ASCII file AA. 

PUNCH 500,RECSIZE = 132 

Line 500 of the program is punched. A record size of 132 characters is used. 

PUNCHING PAPER TAPE OFF-LINE 

To prepare a BASIC program on paper tape, the user must: 

1. Turn teleprinter control knob to "LOCAL". 

2. Turn on the tape punch by pressing the "ON" button on the punch. 

3. Type a series of null characters using the "HERE IS" key or control shift P (@ c ). This punches 
leading holes on the tape. 

4. Type the program as usual following each line with a carriage return. 

5. Type a series of null characters using the "HERE IS" key or control shift P (@ c ). This punches 
trailing holes on the tape. 

6. Turn off the tape punch by pressing the "OFF" button on the punch. 

When programs are punched off-line, the H° and X c keys may be used for corrections. If X° is used 
to delete a line, it must be followed by X-OFF and a carriage return and linefeed. 

If the punched tape is to be read by the TAPE command, the user must press the X-OFF character 
following each line before he presses the carriage return. X-OFF (S c ) is a key on the teleprinter 
keyboard. 
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READING A PAPER TAPE 



Two commands are provided to read paper tapes at a terminal equipped with a paper tape reader; 
they are TAPE and SPOOL. 



TAPE Command 

The TAPE command allows the user to read commands, programs, and data through a paper tape 
reader connected to the terminal. Only tapes that contain an X-OFF character after each record 
can be read with TAPE. Also, in order to read with TAPE, the terminal must be equipped with a 
reader that recognizes X-OFF. 



Form 

TAPE 



Explanation 

After typing TAPE, turn on the tape reader. The tape will be read until the end of the program or 
programs on the tape. If the tape contains data to be input, as much data is read as was requested 
by INPUT, ENTER, or LINPUT, or until the end of the tape. 

When through reading from tape, the user returns to terminal mode with the KEY command. 



KEY Command 

The KEY command returns the terminal user to terminal mode following completion of a tape read 
using TAPE. 



Form 

KEY 



Explanation 

When KEY is typed, the input mode entered with TAPE is terminated and the user is returned to 
the terminal for further interactive execution or to log off. 
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SPOOL Command 



The SPOOL command is used to read paper tapes that have not been punched with X-OFFs 
preceding the carriage return and linefeed. 

Form 

SPOOL 

Explanation 

After typing SPOOL, turn on the tape reader. When the tape is through, the user types the control 
key Y c to terminate the tape. At this point, any error messages are printed at the terminal. 
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Command Input from Files 



If commands or programs are stored on an ASCII file, the XEQ command may be used to cause the 
BASIC/3000 Interpreter to read this file. 



Form 

XEQ asciifile ,ECHO 

The asciifile has been created and contains commands or programs the user needs. If ECHO is 
specified, the records from the ASCII file are listed on the terminal as they are input. 



Explanation 

When the XEQ command is entered, the specified file is read and executed until it reaches an end- 
of-file. Any program input is still read from the inputfile. When the end-of-file of the asciifile is 
reached, control returns to the original command file. For instance, if the job was entered on cards 
with the :BASIC command, control returns to the commandfile specified in that command; if the 
user entered XEQ from the terminal, control resumes at the terminal. 

An XEQ command within the XEQ file will close the first file and open a new one. 



Examples: 

An ASCII file BATCHJOB contains the commands to GET and RUN three programs (AA, BB, and 
CCC) stored in the user's library. In order to run all three programs at a terminal or in a BASIC 
card deck, only the command XEQ BATCHJOB is required. 

This is illustrated in the examples below, one with the ECHO parameter, one without: 

>XEQ BATCH JOB , ECHO 

GET AA 

RUN 

AA 

END OF AA 

GET BB 

RUN 

BB 

END OF BB 

GET CCC 

RUN 

CCC 

END OF CCC 
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ECHO causes a list of the commands in BATCHJOB. When each program is run, it outputs a 
message that it is through. This is part of the individual programs, not BATCHJOB. 

The example below without ECHO runs each program consecutively in the same way as the previous 
example, but it does not list the commands contained in the file BATCHJOB: 



>XEQ BATCHJOB 
AA 

END OF AA 
BB 

END OF BB 

ccc 

END OF CCC 
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APPENDIX A 
ASCII Character Set 



Decimal 




Value 


Comments 


u 


Mull 
IN UII 


J. 


Start of heading 


o 
A 


start ot text 


3 


End of text 


4 


End of transmission 


5 


Enquiry 


6 


Acknowledge 


7 


Bell 


Q 
O 


Backspace 


Q 


Horizontal tabulation 


i n 
±u 


Line feed 


±x 


Vertical tabulation 


1 9 


r orm ieeu 




Carriage return 


1 /I 


sniit out 


1 

±0 


omit in 


16 


Data link escape 


17 


Device control 1 


18 


Device control 2 


19 


Device control 3 


20 


Device control 4 


21 


Negative acknowledge 


22 


Synchronous idle 


23 


End of transmission block 


24 


Cancel 


25 


End of medium 


26 


Substitute 


27 


Escape 


28 


File separator 


29 


Group separator 


30 


Record separator 


31 


Unit separator 


32 


Space 


33 


Exclamation point 


34 


Quotation mark 
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Decimal 

Graphic Value Comments 



# 


35 


Number sign 


$ 


36 


Dollar sign 


% 


37 


Percent sign 


& 


38 


Ampersand 




39 


Apostrophe 


( 


40 


Opening parenthesis 


) 


41 


Closing parenthesis 




42 


Asterisk 


+ 


43 


Plus 




44 


Comma 


- 


45 


Hyphen (Minus) 




46 


Period (Decimal) 


/ 


47 


Slant 


0 


48 


Zero 


1 


49 


One 


2 


50 


Two 


3 


51 


Three 


4 


52 


Four 


5 


53 


Five 


6 


54 


Six 


7 


55 


Seven 


8 


56 


Eight 


9 


57 


Nine 




58 


Colon 






Semicolon 


< 


60 


Less than 




61 


Equals 


> 


62 


Greater than 


? 


63 


Question mark 


@ 


64 


Commercial at 


A 


65 


Uppercase A 


B 


66 


Uppercase B 


C 


67 


Uppercase C 


D 


68 


Uppercase D 


E 


69 


Uppercase E 


i ,i 


70 


Uppercase F 


G 


71 


Uppercase G 




TO 

/ z 


Uppercase H 


T 
1 




Uppercase I 


T 

0 


7/1 


Uppercase J 


K 


75 


Uppercase K 


L 


76 


Uppercase L 


M 


77 


Uppercase M 


N 


78 


Uppercase N 


O 


79 


Uppercase O 


P 


80 


Uppercase P 


Q 


81 


Uppercase Q 


R 


82 


Uppercase R 
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Decimal 

Graphic Value Comments 



o 

o 


8°. 


UPpeiCdbc O 


T 


84 


T TnnPTT'flcip T 1 


TT 


8<i 


T Tnnoi'PQco TT 

LjppcICdoC LJ 


V 
V 


8K 
oo 


Uppercase V 


w 

vv 


O I 


UppeiCdbe VV 


V 
A. 


88 
oo 


uppercase ^\ 


v 


8Q 


Uppercase I 


Zj 


Qfl 

yu 


uppercase Li 


r 

I 


yi 


Opening bracket 


\ 


92 


Reverse slant 


] 


93 


Closing bracket 


A 


94 


Circumflex 





95 


Underscore 


\ 


96 


Grave accent 


a 


97 


Lowercase a 


b 


98 


Lowercase b 


c 


99 


Lowercase c 


d 


100 


Lowercase d 


e 


101 


Lowercase e 


f 


102 


Lowercase f 


g 


i no 


Lowercase g 


ii 




I-iO Wfc3rCd&fcf n 


i 
i 


i o^ 


1 .An/fur 1 qco i 


i 
J 


106 


UU VVCIL'CIOC J 


IV 


1 07 


i-J\J WCl LaoC IV 


1 

I 


1 08 


UUVVClLaoC 1 


in 


1 OQ 


1j(J WerCabe 111 


n 




J-jU WeiCdbe 11 


o 


111 
XXX 


LiO werca.se o 


P 


119 
11L 


jjowercase p 


Q 


1 1 Q 


Lowercase q 


1 


114 

X Xrt 


ljUWcltasc I 


S 


1 1 ^ 
XXO 


Liowercase s 


f 


116 




T t 

U 


117 

XX/ 




V 


xxo 


Lowercase v 


W 


119 


Lowercase w 


X 


120 


Lowercase x 


y 


121 


Lowercase y 


z 


122 


Lowercase z 


{ 


123 


Opening (left) brace 


1 


124 


Vertical line 


} 


125 


Closing (right) brace 




126 


Tilde 




127 


Delete 



A-3 



APPENDIX B 
Error Messages 



Four types of errors may cause error messages: command errors, statement syntax errors, compile 
errors, and run errors resulting from program execution. 



Command Errors 

Command error messages are printed following the command that caused the error. If the message 
is preceded by the word "WARNING:", the command is accepted. Otherwise, the command will be 
dropped and must be entered again. 



Syntax Errors 

When a syntax error in a statement is detected, the following message is printed: 
ERROR@integer 

where integer is the number of non-blank characters successfully processed before the error was de- 
tected. The user may type a carriage return and enter the statement correctly, or he may type any 
other character to request printing of the syntax error message. If the message is preceded by the 
word "WARNING:", the line is accepted and need not be re-entered. 



Compile Errors 

These errors are detected following a RUN command but before execution of the program. If the 
error message is preceded by the word "WARNING:", compilation continues. If compilation results 
in no message or only WARNING messages, the program will be executed. Otherwise, compilation 
terminates with no attempt to run the program. 

Whenever possible, the line number in which the error occurred will be appended to the message in 
the form: IN LINE n DETECTED IN LINE n or DETECTED AT END, whichever is pertinent. 

Compile messages will be printed during a run if a compile error is detected in a subprogram called 
by CHAIN or INVOKE. The message is printed before execution of the program. 
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Run Errors 



These errors are detected during program execution and printed as they occur. If the error message 
is preceded by the word "WARNING:", the run continues. Otherwise, the run terminates. WARN- 
ING messages may be suppressed during a run by including the NOWARN parameter in the RUN 
command (see Section II). 

The line number where the error occurred will be appended to most run error messages in the form: 
IN LINE n, where n is the line number. If the program is named, this message is followed by IN 
programname. 

The WARNING messages for run errors generally are in response to arithmetic errors such as under- 
flow, overflow, division by zero, and so forth. In each of these cases, BASIC/3000 will automatic- 
ally assign a result. This result is printed as part of the message. For instance, for integer overflow 
the result is ±32767, for all other overflow the result is ±1E77, for division by zero the result is 
+1E77, and for underflow the result is zero. 
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APPENDIX C 
BNF Syntax for BASICI3000 



The Backus-Naur Form (BNF) syntax is used to describe the BASIC/3000 language. BNF notation 
consists of a number of "productions", each of which has the form: 

<entity> : : = <expression> 

where the syntactic entity on the left side is defined by or may be replaced by the syntactic expression 
on the right side. The expression may be a sequence of syntactic terms or several of these sequences 
separated by the character "| ". When more than one sequence appears, it means that the entity may 
be replaced by one, and only one, of the sequences of syntactic terms. 

The following additions have been made to the standard BNF for simplicity and conciseness: 

• Brackets ("[" and "]") surrounding an expression indicate that the expression 
is optional. 

• Braces (" | " and " } ") surrounding an expression are used to indicate that the expression 
is to be considered as a single term. Brackets are also used in this way. 

• An ellipsis ("...") following a term indicates that the term may be repeated indefinitely. 

• A symbol whose name has the form <something list> has an implied definition of 
<something>[,<something>]... unless stated otherwise. 



<constant> : : = [<sign>] | <integer> | <fixed> | <float> | <long> ( 

<sign> : : = + | - 

<unsigned constant> : : = <integer> | <fixed> | <float> | <complex> | <long> 

<integer> : : = <digit> ... 

<digit> : : = 0|1|2|3|4|5|6|7|9 

<fixed> : : = <integer>. | .<integer> | < integer >.< integer > 
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<float> 

<numpart> 

<complex> 

< number part> 
<long> 
<variable> 
<numeric variable> 

< simple variable> 
<letter> 

< subscripted variable> 
<numeric array id> 
<sublist> 
<subscript> 
<integer expression> 

<expression> 
<numeric expression> 
<conjunction> 
<relation> 

<minmax> 

<sum> 

<term> 

<factor> 

<unop> 

<unary sign> 

<primary> 



: : = <numpart> E [<sign>] <integer9 

: : = <integer> | <fixed> 

: : - (<number part>, <number part>) 

: : = [<sign>] |<integer> | <fixed> | <float>| 

: : = <numpart> L [<sign>] <integer> 

: : = <numeric variable> | <string variable> 

: : = < simple variable> | < subscripted variable> 

: : = <letter> [<digit>] 

: : = A|B|C|D|E|F|G|H|I|J|K|L|M|N|0|P|Q|R|S|T|U|V|W|X| Y|Z 

: : = <numeric array id> (<sublist>) 

: : = <letter> [<digit>] 

: : = <subscript> [,<subscript>] 

: : = < integer expression > 

: : = <numeric expression having an integer value, possibly by 
conversion from a real, long, or complex value> 

: : = <numeric expression> | <string expression> 

: : = <conjunction> [OR<conj unction >]... 

: : = <relation> [AND<relation>]... 

: : = <minmax> [<relational operator><minmax>]... | 

<string expression><relational operator >< string expression> 

: : = <sum> [ \ MIN | MAX \ <sum>]... 

: : = <unary sign> <term> [ j + I - [ <unary sign> <term>]... 

: : = [NOT <unop>] <factor> [ j * | / | MOD } <unop> <factor>]... 

: : = <primary> [ j ** | A f <unop> <primary>]... 

: : = [ + | - I NOT]... 

:: = [ + !-]..• 

: : = <numeric variable> | <unsigned constant> | 

<numeric function reference> | (<numeric expression>) 
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<relational operator> 
<numeric function reference> 

<numeric built-in function name> 

<argument> 

< actual parameter > 

<string expression> 

< source string> 

< string variable> 

< string simple variable> 

< string array variable> 
<string simpvar id> 

< string array id> 
<substring designator> 

<first character position> 
<last character position> 
<number of characters> 

< literal string> 

< quoted string> 

< character > 

< string function reference> 
<string built-in function name> 
<LET statement> 



: = <|< = |= |<>|>|> = |# 

: = <numeric built-in function name> (<argument list>) | 

<numeric user-defined function name> (<actual parameter list>) 

: = <name of any BASIC/3000 built-in function that 
returns a numeric value> 

: = <numeric expression> | <string expression> | 
<numeric array id> | <string array id> | 

: = <expression> | <string simpvar id> (*) | 

<numeric array id> |(*)|(*,*)f| < string array id> (*,*) 

: = <source string> [+<source string>]... 

: = <string variable> | <literal string> | <string function reference> 

: = < string simple variable> | <string array variable> 

: = <string simpvar id> [(<substring designator^] 

: = <string array id> (<subscript> [,<substring designator>]) 

: = <letter> [<digit>]$ 

: = <letter> [<digit>]$ 

: = <first character position> [,<last character position>] | 
<first character position>;< number of characters> 

: = <integer expression> 

: = <integer expression> 

: = <integer expression> 

: = <quoted string> |' <integer> [<quoted string>] | 
<literal string> ' <integer> [<quoted string>] 

: = "[<character>]..." 

: = <any ASCII graphic character other than "> 

: = <string built-in function name> (<argument list>) | 

<string user-defined function name (<actual parameter list>) 

: = <name of any BASIC/3000 built-in function that returns 
a string value> 

: = [LET] <let part> [ <let part>]... 
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<let part> 
<num let> 
<num left part> 

< string let> 
<string left part> 
<destination string> 
<REM statement 
<character string> 
<G0 TO Statement 
<single-branch GO TO> 
<multibranch GO TO> 
<label> 

<GOSUB statement> 
<single-branch GOSUB> 
<multi-branch GOSUB> 

< RETURN statement 
<gosub return > 
<function return> 
<END Statement> 
<STOP Statement> 
<FOR statement> 
<NEXT statement> 
<for variable> 
<initial value> 
<final value> 

<step size> 



= <num let> | <string let> 

= <num left part> <numeric expression> 

= | < numeric variable > = \ ... 

- <string left part> <string expression> 

= \ <destination string> = \ ... 

= < string variable> 

= REM <character string> 

= <any ASCII graphic character> 

= < single-branch GO TO> | <multibranch GO TO> 

= GO TO <]abel> 

= GO TO <integer expression> OF <label list> 
= <integer> 

= <single-branch GOSUB> | <multi-branch GOSUB> 
= GOSUB <label> 

= GOSUB <integer expression> OF <label list> 
= <gosub return> | <function return> 
= RETURN 

= RETURN <expression> 
= END 
= STOP 

: FOR <for variable> = <initial value> TO <final value> [STEP <step size>] 

= NEXT <for variable> 

= <simple variable> 

= < numeric expression> 

= <numeric expression> 

= <numeric expression> 
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<IF body> 
<IF part> 
<ELSE part> 
<IF statement> 
<IF DO statements 
<ELSE statement> 
<ELSE DO statement 
<DO part> 

<DOEND statement> 
<clause> 

< PRINT Statement> 
<print list> 
<print element> 
<print function > 
<print function name> 
<READ statement 
<read item list> 
<DATA statement 
<data constant> 
< RESTORE statement> 
< INPUT statement 
<input item> 
< ENTER statement> 

<allotment> 
<terminal> 



: = <IF part> [<ELSE part>] 

: = <IF statement> | <IF DO statement <DO part> 

: = <ELSE statement> | <ELSE DO statement <DO part> 

: = IF <numeric expression> THEN { <label> | <clause> [ 

: = IF <numeric expression> THEN DO 

: = ELSE { <label> | <clause> \ 

: - ELSE DO 

: = [<statement>j... <DOEND statement> 
: - DOEND 

: = <any executable statement other than IF, FOR, NEXT, 
ELSE, or DOEND> 

: = PRINT [<print list> [, | ;]] 

: = <print element> [ | , | ; } <print element>]... 

= expression >| < print function >| (<FORstatement>,<printlist>l,| ;J) 
: = <print function name> (<integer expression>) 
: = TAB | LIN| SPA| CTL 

= READ <read item list> 

= <variable> | (<FOR statement>, <read item list>) 

= DATA <data constant list> 

= <constant> | <Iiteral string> 

= RESTORE [<]abel>] 

= INPUT [[ : ] <input item list>] [ : J 

= <variable>| <literalstring>| (<FORstatement>,<inputitem list>) 

= ENTER # <terminal> | 
ENTER # <terminal>, <allotment>, <time>, <variable> 

= <integer expression > 

= <nnmeric variable> 



APR 1978 



0-5 



<time> 

<DIM statement> 

<dimspec> 

<numeric dimspec> 

< string dimspec> 

<bound> 

<size> 

<REDIM statement 
<redimspec> 
<numeric redimspec> 
<string redimspec> 
<Type statement> 
<type> 
<typespec> 

<MAT READ statement> 

<MAT INPUT statements 

<mat read item> 

<MAT PRINT statement> 

<mat print list> 

<mat print item> 

<MAT initialization statement 

initialization function> 

<string MAT initialization statement> 



: = < numeric variable> 
: : = DIM <dimspec list> 
: : = <numeric dimspec> | <string dimspec> 
: : = <numeric array id> (<bound> [, <bound>]) 
: : = <string array id> (<bound>, <size>)| <string simpvar id> (<size>) 
: : = <integer> 
: : = <integer> 

: : = REDIM <redimspec> [,<redimspec>] 

: : = <numeric redimspec> | <string redimspec> 

: : = <numeric array id>(<integer expression>[,<integer expression:*]) 

: : = <string array id> (<integer expression>) 

: : = <type> <typespec list> 

: : - INTEGER | COMPLEX | LONG | REAL 

: : = <simple variable> | <numeric dimspec> 

: : = MAT READ <mat read item list> 

: : = MAT INPUT <mat read item list> 

: : = <numeric array id> | <string array id> | <redimspec> 

: : = MAT PRINT <mat print list> [, | ;] 

: : = <mat print item> [],!;} <mat print item | , | ; [ ]... 

: = < numeric array id> | < string array id> | <print function> 

: = MAT < numeric array id> 

= <initialization function> [(<integer expression >[,<integer expression>])] 
: = ZER | CON | IDN 

: = MAT <string array> = NUL$(<integer expression>) 
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<MAT assignment statements 



<CONVERT statement> 

<IJNPUT statement> 
<multiline function> 
<multiline DEF statement> 

<multiline function body> 
<FNEND statement> 
<formal parameter> 
<string parameter^ 
<variable parameter> 
<numeric function name> 
<string function name> 
<one-line DEF statement> 

<CREATE statement 

<filesize> 
<record size> 
<PURGE statement 
< FILES statement 



: = MAT <numeric array id> = <numeric array id> | 

MAT < numeric array id > = < numeric array id >+ < numeric array id > | 

MAT <numeric array id>=<numeric array id>-<numeric array id>| 

MAT < numeric array id>=<numeric array id>*<numeric array id>| 

MAT <numeric array id>=INV(<numeric array id>)| 

MAT <numeric array id>=TRN(<numeric array id>)| 

MAT <numeric array id>=(<numeric expression>)*<numeric array id> 

MAT <string array id>=<string array id> 

: = CONVERT <numeric expression> TO <destination string>| 
CONVERT < string expression> TO < numeric variable>[ ,< label > J 

: - LINPUT <destination string> 

: = <mu]tiline DEF statement <multiline function body> 

= DEF [< type>]< numeric function name>(<formal parameter list> ) | 
DEF <string function name> (<formal parameter list>) 

: = <statement> ... <FNEND statement> 

: = FNEND 

= [<type>] <variable parameter> | <string parameter> 
= <string simpvar id> [(*)] | string array id> (*,*) 
= <simple variable> | <numeric array id> | (*) | (*,*) } 
= FN <letter> 
= FN <letter>$ 

= DEF[<type> ] <numeric function name>(<formal parameter list> ) 
= <numeric expression> | 

= DEF = string function name>)<formal parameter list> 
= <string expression > 

- CREATE <numeric variable> , <string expression>, 
<file size> [, <record size>] 

= <integer expression> 

= <integer expression> 

= PURGE <numeric variable> , <string expression> 
= FILES <file designator list> 
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<file designator> : : 

<qualified file name> : : 

<local file re£erence> : : 

< ASSIGN statements : : 

<string file name> : : 

<file number> : : 

<protect mask> : : 

<restriction> : : 

<file PRINT statement : : 

< file PRINT USING statement :: 

< file READ statement> :: 

<record number> : : 

<ON END statement> : : 

< ADVANCE statement :: 

< UPDATE statement : : 

< LOCK statement> : : 
< UNLOCK statement :: 
<file LINPUT statement : : 

<file RESTORE statement : : 

<file MARGIN statement : : 

<file MAT READ statement : : 

<file MAT PRINT statement> : : 

<file MAT PRINT USING : : 
statement> 

<PRINT USING statements : : 

< print using> :: 

<print using element> :: 



= < qualified file name> | *| #<integer> 

= <local file reference> [Xgroup name> [Xaccount name>] ] 

= <file name> [ /<lockword>] 

: ASSIGN <string file name>, <file number>, 
<numeric variable> [,<protect mask>] [,<restriction>] | 
= ASSIGN *,<file number> 

: < string expression> 

: < integer expression< 

: <string expression> 

RR | WR | NR | WL | NL 

: PRINT #<file number> [,<record number>] [;< print list>[,|]]| 
PRINT # < file number> [ , <record number>] ; 
[<printlist>{ ,|; } ] END 

PRTMT#< file number> [.record number>] 
[ ; ] USING { <label> | <string expression> } 
[ ;< print list> | END | { print list, END } ] 

READ#<file number> [,<record number>] [;<read item list>] 

< integer expression> 

{ ON | IF } END# <file number> THEN <label> 

ADVANCE#<file number> ;<integer expression>, 
< numeric variable> 

UPDATE#<file number>; <expression> 
LOCK#<file number> 
UNLOCK#<file number> 

LINPUT #<file number> [ ,<record number>] ; 

< designation string> 

RESTORE #< file number> 

MARGIN [#<file number>,] <marginsize> 

MAT READ#<file number> [ ,<record number>] 
[ ;<mat read item list> ] 

MAT PRINT#<file number> [ ,<record number>] 
[,<mat print list> [,| ;] ] I 

MAT PRINT#<file number> [ ,<record number>] 

[ ;] USING { <label> |< string expression> } 

[ ;<mat print list> | END | { mat print list, END } ] 

< print using> [ ;<print using element list>] 

PRINT USING { <string expression> | <label> } 

<expression> | < print function> | 

(<FOR statement>, < print using element list>) 
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<MAT PRINT USING statement 

< IMAGE statements 
<format string> 

< carriage control > 
<format list> 
<format element> 
<replicator> 
<format speo 

<literal spec> 
<lit> 

<string spec> 
<K spec> 
<integer spec> 
<unsigned integer spec> 
<signed integer spec> 

<fixed spec> 
<signed fixed spec> 

<unsigned fixed spec> 

<float spec> 
<unsigned float spec> 
<signed float spec> 



MAT < print using > [;<mat print item list>] 
IMAGE < format string> 
[<carriage control>, J <format list> 
+ |-|# 

[/| ,] <format element> [ | / | , [ <format element>]... [/|,] 

<format spec> | <replicator> (<format list>) 

<integer> 

<string spec>| <fixed spec>| <float spec>| 

<integer spec>| <complex spec>| <K spec>| <literal spec> 

<lit> 

[ < literal string > | [ < replicator > ] { X 1 1 | $ } ] 
<lit> | [<replicator>] A <lit> \ ... 
<lit> K <lit> 

<unsigned integer spec> | <signed integer spec> 

<lit> | [<replicator> D <lit>| ... 

<lit> | S| M \ <unsigned integer spec> | 
<unsigned integer spec> \ S| M [ 
[<unsigned integer spec> | <lit>] 

<signed fixed spec> | <unsigned fixed spec> 

<signed integer spec>. | <unsigned integer spec>| <lit> [ | 
<lit> | S|M \ <lit>.<unsigned integer spec>| 
\ <unsigned integer spec>|<lit> \ . <signed integer spec> | 
<unsigned integer spec> . <lit> | S|M [ <lit> 

<unsigned integer spec> . 

<unsigned integer spec> | <lit> | | 
<lit> . <unsigned integer speo 

<unsigned float spec> j <signed float spec> 

| <unsigned integer spec> | <unsigned fixed spec> [ E<lit> 

| <signed integer spec> | <signed fixed spec> [ E <lit> | 
<unsigned float spec> \ S|M } <lit> 
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<simple spec> 
<complex spec> 

< CHAIN statements 

< INVOKE statement> 
<COM statement> 
<nonzero digit> 
<com item> 

< string com item> 
<numeric com item> 
<CALL statement> 

< external procedure name> 

<SYSTEM statement 



: : = <fixed spec> | <float spec> | <integer spec> 

: : = <lit> C (<simple spec> , <simple spec>) <lit> | 

|<lit> | <simple spec>f |+ | -\ |<unsigned integer spec> | 
>unsigned fixed spec> | <unsigned float spec> [ 

: : = CHAIN <string expression> [,<integer expression>] 
: : = INVOKE <string expression> [,<integer expression>] 
: : = COM [(<nonzero digit>)] <com item list> 
: : = 1 | 2| 3| 4| 5| 6| 7| 8| 9 

• : = [ < type>] <numeric com item> | <string com item> 
: : = <string parameter> | <string dimspec> 
: : = <variable parameter> | <typespec> 

: : = { CALL | * |<external procedure name> [ ( < actual parameter list> ) J 

: : = <the name of a procedure in the group SL, account SL, 
or system SL> 

: : = SYSTEM <numeric variable>, <string expression> 
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APPENDIX D 

Summary of BASIC 1 3000 Statements 

and Commands 



STATEMENT SUMMARY 

This summary of BASIC/3000 statements provides the statement names in alphabetic order with a 
brief description and a reference to the section or sections containing a complete statement de- 
scription. 



Statement Description 

ADVANCE # Skips the specified number of items in a forward or backward 

direction on a file. 



Reference 
Section VIII 



ASSIGN 



CALL or 



CHAIN 



COM 



Dynamically assigns a file name to a file number and opens the file; 
may also be used to close files during execution. 

Calls for execution of a procedure stored in a segmented procedure 
library (SL), optionally passing parameters to the procedure. 

Terminates the current program and calls for execution of the 
BASIC/3000 program named in the CHAIN statement. Variables 
are shared between programs if named in COM statements. 

Declares a common block to contain specified variables used in 
common by more than one program. Effective when one program 
calls another with CHAIN or INVOKE. 



Section VIII 



Section XI 



Section X 



Section X 



COMPLEX 
CONVERT 

CREATE 



Declares the following variable or variables to be type complex. 

Converts a numeric expression to a string representation, or con- 
verts a string expression to a numeric representation. 

Creates a formatted file with a specified length and, optionally, a 
record size. 



Section IV 
Section V 

Section VIII 



DATA 
DEF 



Provides data to be read by READ statements. 
Introduces a function definition. 



Section 1 1 
Section VI 
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Description 

Reserves storage for arrays and sets the upper bounds on the number 
of elements. 

DIM also reserves storage for strings and sets their maximum character 
length. 

Used only after IF. ..THEN or ELSE, they enclose statements to be 
executed when an IF or ELSE condition is satisfied. (See 
IF. ..THEN) 

Used only in conjunction with IF. ..THEN, it introduces a statement 
to be executed when the IF condition is false. (See IF. ..THEN) 

Terminates execution of the current program; may be omitted 
since last line of program provides an implicit END. 

Provides for user input with a timed response. Returns the actual 
response time and, optionally, the logical terminal number. One 
numeric or string constant can be input. 

Allocates file numbers to file names or reserves file numbers for 
later assignment with ASSIGN. FILES is declarative and, unlike 
ASSIGN, is not executed. 

Terminates a multi-line function definition. 

Allows repetition of a group of statements between FOR and 
NEXT. The number of repetitions is determined by the initial 
and final values of a FOR variable, and by an optional step 
specification. 

Transfers control to a specified statement label. 

Multibranch GOTO transfers control to one of a list of state- 
ment labels depending on the value of an integer expression. 

Causes execution of a subroutine beginning at a specified state- 
ment label. Following a RETURN statement in the subroutine, 
control returns to the statement following GOSUB. 

Multibranch GOSUB executes one of a list of subroutines de- 
pending on the value of an integer expression. 

Specifies action to be taken when an end-of-file condition 
occurs; IF END # is used interchangeably with ON END #. 
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Statement 



Description 



Reference 



IF ... THEN Evaluates a conditional expression and specifies action to be taken 

if condition is true. The condition is a numeric expression con- 
sidered true if its value is nonzero, false if its value is zero. The 
action may be transfer to a statement label, a single executable 
statement, or a DO . . . DOEND group. 



Section II 



IMAGE 



Provides format specifications for PRINT USING or MAT PRINT 
USING statements. 



Section IX 



INPUT 



Requests user input to one or more variables by printing a ? 
and accepts string or numeric data from the terminal. 



Section ! I 



INTEGER 
INVOKE 



Declares the following variables or arrays to be type integer. 

Suspends the current program and calls for execution of a 
BASIC/3000 program, and returns to statement following 
INVOKE after execution of the invoked program. Variables are 
saved and files remain open; data may be passed with COM 
statement. 



Section IV 
Section X 



LET 



Introduces assignment statement that assigns one or more values 
to a variable or array element. The word LET may be omitted. 



Section II 



LINPUT 



Requests a line of input from the terminal, all of which is as- 
signed to a single string variable. 



Section V 



LINPUT # 



Accepts contents of a record on a data file as input to a string 
variable. Used only with ASCII files. 



Section VIII 



LOCK # 



Dynamically locks file during execution; all write operations 
will be completed and no other user can lock that file until an 
UNLOCK # statement is executed. 



Section VIII 



LONG 
MARGIN 



Declares the following variables or arrays to be type long. 

Sets the length of the print line for the PRINT and MAT 
PRINT statements. 



Section IV 
Section VIII 



MARGIN # Sets the length of the print line for PR IN ~ = and MAT 

PRINT # statements to the specified ASCII file. 



Section VIII 



MAT Add 



Performs array addition element by element upon arrays of 
identical logical size, and assigns result to another array. 



Section III 



MAT Copy 



Copies one array into another array with at least as many ele- 
ments and the same number of dimensions. Any redimensioning 
is automatic. 



Section III 



MAT Initialize Initializes a numeric array with values specified by the functions 

ZER (zero), CON (ones), or IDN (identity array). 



Section III 



MAT INPUT Inputs values to arrays from the terminal; optionally an array 

can be redimensioned. 



Section II 
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Statement 



Description 



Reference 



MAT Inverse Assigns the inverse of a square array to another array using the 

function INV. Any redimensioning is automatic. 

MAT Multiply Performs array multiplication on an array with dimensions m by 

n and an array of dimensions n by p resulting in a new array with 
dimensions m by p. 

MAT PRINT Prints arrays by rows according to array dimensions; a semicolon 

after the array name will pack the rows in a line. 

MAT PRINT # Prints contents of arrays by rows in a specified file. 

MAT PRINT USING Prints arrays according to format specifications in MAT PRINT 
USING statement or in an IMAGE statement. 



MAT PRINT # 
USING 



MAT READ 
MAT READ # 



Prints arrays to a specified ASCII file according to format 
specifications given in the MAT PRINT # USING statement 
or in an IMAGE statement. 

Reads data from DATA statements into one or more arrays. 
Reads data from a file into one or more arrays. 



MAT Scalar Multiply Multiplies each element in an array by a specified numeric expres- 
sion. Any redimensioning is automatic. 



MAT Subtract 
MAT Transpose 
NEXT 
ON END # 
PRINT 
PRINT # 
PRINT USING 

PRINT* USING 

PURGE 
READ 



i 



Performs array subtraction element by element upon arrays of 
identical logical size, and assigns result to another array. 

Transposes an n by m array to an m by n array using the function 
TRN. Any redimensioning is performed automatically. 

Terminates a loop introduced by a FOR statement. Specifies a 
variable that must match the FOR variable. 

Specifies action to be taken when an end-of-file condition 
occurs. 

Prints the contents of a list of numeric or string expressions on 
the list device. 

Outputs the contents of a list of numeric or string variables to the 
specified file. 

Prints the contents of a list of numeric or string variables with format 
controlled by format specifications included in the PRINT USING 
statement or in an IMAGE statement. 

Prints the contents of a list of items to a specified ASCI I file 
according to format specifications given in the PRINT # 
USING statement or in an IMAGE statement. 

Purges a specified file from the system. 

Assigns constants and string literals from one or more DATA state- 
ments to the variables specified in READ. Treats contents of all 
DATA statements as a single data list. 
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Section III 
Section III 

Section III 

Section VIII 
Section IX 

Section IX 

Section III 
Section VIII 
Section III 

Section III 

Section III 

Section II 

Section VIII 

Section II 

Section VIII 

Section IX 

Section IX 

Section VIII 
Section II 
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Description 



Reads one or more items from a file into specified variables. 

Declares the following variables and arrays to be type real. This 
type declaration is not generally required because the real repre- 
sentation is the default case. 

Redimensions the rows and columns of an array. 

Redimensions the size of a string array without changing the ele- 
ment size. 

Introduces remarks and comments in the program listing. 

Resets the data pointer to the beginning of the program or to the 
first DATA statement following a specified label. 

Repositions the file pointer to the start of the file; can only be 
used on files that can be rewound. 

Returns control from a GOSUB subroutine to the statement 
following the last GOSUB. 

Terminates execution of a multiline user-defined function and 
returns the value of the function. 

Terminates execution of the run. 

Dynamically executes an MPE/3000 command from a BASIC/ 
3000 program. 

Unlocks a file that was locked with LOCK # enabling other 
programs to lock and/or write on that file. 

Modifies one item in a file without affecting other items. 
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COMMAND SUMMARY 



Each command is listed by name in alphabetical order followed by a brief description and a refer- 
ence to the section or sections containing a complete description of the command. 



Command 

ABORT 

APPEND 
> BASIC 

BREAK 

CALLS 



Description 

Legal only in break period; terminates the suspended program 
and returns to BASIC/3000 control where all commands are 
legal. 

Appends a specified program to the end of the current program. 

Interrupts input requested by INPUT or ENTER and enters a new 
level of BASIC/3000. 

Specifies breakpoints where execution of program will be inter- 
rupted to enter debugging commands. 

Legal only in break period; lists functions and programs called 
by INVOKE that have not been completed. 



CATALOG or CAT Lists name, type, file size, and record size of programs and files 
in the specified fileset. 



CREATE 

DELETE or DEL 

DUMP 

>EOD 
EXIT 
FILES 

GET 

GO 



Creates a BASIC/3000 formatted file with a specified length, and 
optionally, record size. 

Deletes one or a range of more than one statement from current 
program. 

Displays the contents of a BASIC/3000 formatted file at the 
terminal or on a specified ASCII file. 

Terminates batch input. 

Terminates the current BASIC/3000 program. 

Legal only in break period; lists all files for the executing 
program. 

Gets the specified BASIC/3000 program from the user's library, 
replacing the current program. 

Legal only in break period; terminates the debugging mode and 
resumes the suspended program. RESUME may be used wherever 
GO is used. 



Reference 
Section VII 

Section II 
Section II 

Section VII 

Section VII 

Section II 

Section VIII 

Section II 

Section VIII 

Section XII 
Section I 
Section VII 

Section II 

Section VII 



KEY 



Returns from TAPE mode to terminal mode. 



LENGTH OR LEN Prints the number of words in the current program. 



Section XII 
Section II 
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Command 

LIST 

NAME 
PUNCH 

PURGE 



RENUMBER or 
RENUM 



RESUME 



RUN 



SAVE 

SCRATCH or 
SCR 

SET 



SHOW 

SPOOL 
SYSTEM 

TAPE 
TRACE 

UNBREAK 
UNTRACE 
WAIT 
XEQ 



Description 

Lists the contents of the current program at the terminal or on a 
specified ASCII file. 

Assigns a name to the current program. 

Punches a program on paper tape and inserts control characters 
as needed to read the tape. 

Deletes the specified data or program file from the system. 



Renumbers any group of statements in the current program, 
optionally from a new first line number with a specified incre- 
ment. By default, renumbering starts at 10 with increments of 
10. 

Resumes normal BASIC/3000 operation following a SYSTEM com- 
mand break, pressing Y c , or a debugging break. 



Executes the current program or gets and executes a specified 
program file in a library. 

Saves the current program as a program file in a library. 

Deletes entire current program and its name. Clears all break 
points and traces. 

Legal only in break period; sets any program variable to a 
constant value. 

Legal only in break period; lists the values of the specified 
items. 

Reads paper tapes that have not been punched with X-OFFs. 

Suspends BASIC/3000 and transfers control to MPE/3000; the 
RESUME command returns control to BASIC/3000. 

Reads paper tapes that have been punched with X-OFFs. 

Traces variable and array values, and the execution of statements 
and segmented programs. 

Deletes any or all breakpoints specified with the BREAK command. 
Deletes tracing specified by TRACE command. 
Suspends the BASIC Interpreter. 

Inputs commands and program statements from a specified file; 
the end-of-file terminates XEQ. 



Reference 

Section II 

Section II 
Section XII 



Section II 
Section VIII 

Section II 



Section I 
Section VII 
Section XI 

Section II 



Section II 
Section II 

Section VII 

Section VII 

Section XII 

Section I 
Section XI 

Section XII 

Section VII 

Section VII 
Section VII 
Section VII 
Section XII 
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APPENDIX E 
Built-in Functions 



A set of built-in (or predefined) functions is available for reference by the BASIC/3000 user. These 
functions with their class and meaning are listed below in alphabetic order. If usage is described in 
this manual, a section number follows the description. Built-in functions are separated into eight 
classes. The function result (numeric type or string) is based on the class of the function and the 
argument type. The table below shows the type of the result based on the function class and ar- 
gument type: 



Type of Argument 

INTEGER/ 





REAL 


LONG 


COMPLEX 




STRING 


1 


REAL 


LONG 


REAL 




2 


REAL 


LONG 


COMPLEX 




3 


COMPLEX 


COMPLEX 


COMPLEX 




4 


REAL 


REAL 


REAL 




5 


STRING 


STRING 


STRING 




6 








REAL 


7 








STRING 


8 


argument is an array or string array, result is real 



Note that an argument for a trigonometric function must be expressed in radians with 1 radian 
equal to 1^°- or 57.1958 degrees. 

A variable argument is shown by a capital letter, an expression by a lower-case letter. 
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Name and Parameters Class 



Meaning 



ABS(x) 



ATN(x) 



BRK(x) 



BUF(x) 

CEI(x) 

CHR$(x) 
CIMJ(x) 

COL(A) 

COS(x) 
CPX(x,y) 

CPU(x) 
CSH(x) 
DAT$(x,y) 



DEB$(s) 

EXP(x) 
IMG(x) 



2 
3 

4 
2 
5 



Absolute value of x: when x is complex: 
ABS(x) = SQR(REA (x)**2+IMG (x)**2) 

Arctangent x; when x is complex, the result is the angular argument of x, or 
1 

tan (IMG(x)/REA(x)) adjusted to the appropriate quadrant, x is expressed 
in radians. 

Allows programmatic control of breaks; use with caution. If x <0, returns 
current setting only. If x = 0, > BASIC, the break key, and Y c break are 
disabled. If x >0, these functions are enabled. BRK returns 0 if traps 
were previously disabled or 1 if they were enabled. 

Test input buffer for : option of INPUT. For this function, x is a dummy 
parameter. (Section II) 

Ceiling of x; smallest integer > = x. When x is complex, only the real part 
is used. 

Generates a one-character ASCII string; x is in the range 0-255. (Section V). 

Complex conjugate of x; that is, it reverses the sign of the imaginary part of 
x. (Section IV). 

Number of columns in array A. If A is one-dimensional, COL(A)=1. 
(Section III). 

Cosine of x; x must be expressed in radians. 

Complex number = x + yi. If x or y is complex only the real part is used. 
(Section IV). 

Number of seconds of CPU time (+ .001 sec.) that the program has run. 

Hyperbolic cosine of x; CSH(x) is (e x + e" x )/2. 

Generates date string. x,y selects substring: 

String Position 1-3 6-11 14-17 20-27 
Contents Day Date Year Time 

Time is expressed as hours 0-12, minutes 0-59. (Section V). 

Returns s with leading and trailing blanks removed. (Section V). 



Imaginary part of x. (Section IV). 
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Name and Parameters Class 

INT(x) 1 
ITM(x) 4 



LEN(s) 
LOG(x) 

NUM(s) 

PIX(x) 

POS( Sl ,s 2 ) 

REA(x) 
REC(x) 
ROW(A) 

RND(x) 



SGN(x) 

SIN(x) 

SNH(x) 

SQR(x) 

TAN(x) 

TNH(x) 

TIM(x) 



6 
2 

6 
2 
6 

4 
4 
8 



4 

2 
2 
2 
2 
2 
4 



Meaning 

Largest integer < = x. If x is complex, only the real part is used. 

Number of data items between the beginning of the current record of 
file x and the position of the file pointers. (Section VIII). 

Logical length of string expression s. (Section V). 

Natural logarithm (log e x). If x is complex, it must not be zero. If x is not 
complex, it must be greater than zero. 

ASCII code for first character of string expression s. (Section V). 
PI function = 7T * x 

Smallest integer representing starting position in s-| of substring identical 
to S2- If no such substring, then equals zero. (Section V). 

Real part of x. (Section IV). 

Current record number of file x. (Section VIII). 

Number of rows in array A. If A is one-dimensional, it returns the 
dimension. (Section III). 

Pseudo-random number between 0 and 1 but not equal 1. If x > = 0, 
the number is determined from the previous random number, except on 
the first call when an unpredictable (totally random) number is generated. 
If x < 0, the random number is determined by x. To generate a repeatable 
sequence of random numbers make the first call with x < 0, and subse- 
quent calls with x > = 0. To repeat the sequence, use the value of x from 
the first call. To generate a non-repeatable sequence, use x > = 0 for all 
calls, including the first. 

Sign function; equals 1 for x > 0, 0 for x = 0, and -1 for x < 0. 

Sine x; x must be expressed in radians. 

Hyperbolic sine x: SMH(x) is (e? x -e~ x )/2. 

Square root of x; x must be > = 0. 

Tangent x; x must be expressed in radians. 

Hyperbolic tangent x; TNH(x) is SNH(x)/CSH(x). 

Time, where the value is determined by x: 

if x < 0, number of seconds since program began 
x =0, current minute (0-59) 
x = 1, current hour (0-23) 
x =2, current day (1-366) 
x > = 3, current year (0-99) 
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Name and Parameter 

TYP(x) 

UND(X) 
UPS$(s) 
WRD(s 1( s 2 l 



Class Meaning 

4 Returns type of next data item in file | x I, or in DATA list if x = 0. 

(Section VIII). 

4 X must be a numeric variable, UND(X) returns 1 if X has undefined 

value, 0 otherwise. 

7 Upshift alphabetic lower case to upper case in string expression s. 

(Section V). 

6 Smallest integer representing starting position in s^ of a substring that is 

surrounded by non-alphabetic characters and is identical to there 
is no such substring, 0 is returned. (Section V). 
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APPENDIX F 
Parameter Format 



When parameters are specified in the CALL statement, the BASIC/3000 Interpreter sets up a table 
of the parameter addresses with a pointer to the first address. The parameter addresses are pre- 
ceded by a code word for each parameter to specify the data type and whether the parameter is 
simple numeric, string, or an array. This enables the procedure to check if the calling sequence is 
correct. 

The addresses point to the parameter values. These values are stored differently depending on the 
type of the parameter. 

The user who writes the SPL or FORTRAN procedures that he calls from BASIC needs to know the 
format of the parameter table and also how the values are stored. 



PARAMETER ADDRESS TABLE 



This sample table is in the HP 3000 data stack. It contains the number of parameters, a code word 
for each parameter, and the parameter addresses: 



number of parameters 



parameter 1 



parameter 4 



parameter 2 



parameter 3 



parameter 1 



parameter 2 



parameter 3 



parameter 4 



stack 
marker 



Old Stack Marker 

OLDQ+1 

Code Words 



Parameter 
Addresses 
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The user should refer to the HP 3000 Computer System Reference Manual for details on stack 
operation. 

Each code word has three fields of five bits each: 

0 1 5 6 10 11 15 



Each field has two subfields of three and two bits each : 



3 bits 



2 bits 



The three-bit field gives the data type of the parameter: 

0 - string 

1 - integer 

2 - real 

3 - long 

4 - complex 

The two-bit field specifies: 

0 - simple numeric 

1 - simple string or one-dimensional numeric array 

2 - two-dimensional numeric array or one-dimensional string array 

The code words in the stack following the procedure call are in the same order as the parameter ad- 
dresses that follow. 

PARAMETER STORAGE 

What the parameter address points to depends on the type of the parameter; whether it is simple 
numeric, numeric array, simple string, or string array: 

1. For a simple numeric expression, including simple variables and subscripted variables, the 
address points to the first word of the value. The number of words needed for a value 
depends on the data type: 

integer - 1 word 

real - 2 words 

long - 4 words 

complex - 4 words 



F-2 



2. 



For numeric arrays, the address points to the first value of the array (array(l) or array(l,l)). 
There are three words prior to this value that describe the array. Arrays are stored by rows 
as follows: 



maximum number of elements 



number of rows (1st dimension) 
nurnoer of columns (2nd dimension) 



pointer 



(equal to 1 for one-dimensional arrays) 
array (1) or (1,1) 



array (2) or (1,2) 



array(n) or (n,n) 



3. For simple string variables, string array elements, and string expressions, the address is a byte 
pointer that points to the first byte of the string. The two preceding bytes define the physical 
and logical lengths of the string: 



physical length 


logical length 


1st byte 


2nd byte 


3rd byte 





4. For string arrays, the address points to the first element of the array. Each element has the 
form of a string value with two bytes specifying physical and logical length respectively, fol- 
lowed by the bytes containing the actual value. This string value is preceded by two words 
that define the array : 



maximum number of elements 



byte pointer 



logical dimension 



physical length 


logical length 


1st byte 


2nd byte 


3rd byte 








physical length 


logical length 


1st byte 


2nd byte 


3rd byte 





first 

string 

element 



second 

string 

element 
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APPENDIX G 

Compatibility Between BASIC I 2000 

and BASIC/3000 



With four exceptions, BASIC/2000 is a compatible subset of BASIC/3000. This means that a 
BASIC/2000 program can be run under control of the BASIC/3000 Interpreter and will compile 
and execute correctly. But, due to the many new features available in BASIC/3000, a BASIC/3000 
program will not necessarily run on a BASIC/2000 system. 

The four exceptions to compatibility are described here. None of these exceptions will affect com- 
pilation, but they might affect the result when a BASIC/2000 program is run on BASIC/3000. 

The exceptions are: 



BASIC/3000 



BASIC/2000 



1. 



A COM statement is valid during one 
run only. It does not remain valid be- 
tween runs. COM blocks must have 
compatible structure. 



A COM statement remains valid between runs. 
COM blocks need not have compatible structure. 



2. 



Files are closed when a program calls 
a program with the CHAIN statement. 



Files remain open when a program calls a pro- 
gram with the CHAIN statement. 



3. 



MAT PRINT prints a one-dimensional 
array as a row of elements, thereby 
saving space and printing time. 



MAT PRINT prints a one-dimensional array as 
a column of elements. 



4. 



S or M is required in a floating point 
specification of a format string if the 
number is negative. 



S or M is not required. 
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APPENDIX H 

File Structure 



BASIC/3000 FORMATTED FILES 

A formatted BASIC/3000 file contains format words provided by the Interpreter to indicate the 
type of the data items in the file. Space for these format words is allocated automatically in addi- 
tion to the record size specified by the user. The format words are placed in each record following 
the logical end-of-record, but before the physical end-of-record. 

Formatted files can have a record size between 4 and 319 words. The recommended (and default) 
record size is 106 words per record since this yields 128 words when the format words are added. 
The standard system size for records is 128 words. Records are numbered starting with 1, not 0. 

Each record consists of an area for data items and an area for format words: 



1st 5 Data Items 



/ 

logical EOR 



1st Format Word 



Physical EOR 



Format Word 



Each format word consists of five 3-bit flags. The first bit is not used. 



0 1 



3 4 



6 7 



9 10 12 13 



15 



The first format word corresponds to the first five data items, with the first flag in the format word 
corresponding to the first data item, the second flag to the second item, and so forth. 
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The item types are specified in the format word flags as: 



0- 


end-of-file 


1 - 


end-of-record 


2- 


string 


3- 


integer 


4- 


real 


5- 


long 


6- 


complex 



The logical end-of-record delimits the record size specified by the user to include all the data items. 
The physical end-of-record delimits the BASIC-created record size that is sufficient to contain the 
format words as well as the data items. 



Record Size 



The space requirements for a data item differs depending on the data type. The number of 16-bit 
words required for each data type is : 

Data Type Number of Words 

Integer 1 

Real 2 

Long 3 (MPE C) 

Long 4 (MPE III) 

Complex 4 

String (length +l)/2 + 1 

In each case an additional 1/5 of a format word is added for each data item to provide room for the 
format words. 



The user can determine the physical record size created for the file by BASIC from the logical record 
size he has used to contain his data items. The formula is : 

P = R + INT(R/5) + 1 

where P is the physical record size created by BASIC 
R is the logical record size assigned by the user 

This formula never returns a physical record size which is evenly divisible by six. If a BASIC for- 
matted file is created through the MPE/3000 Operating system with a physical record size (in 
words) which is evenly divisible by six, it will not be usable by BASIC. (Note that the record size 
supplied with the CREATE command or statement within BASIC is the logical record size and so 
may be a value which is divisible by six. 

If the physical record size is known, the user can determine the logical record size of a record with 
another formula : 



R = CEI(5*(P-l)/6) 
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File Attributes 

The user may need to know the MPE/3000 file codes for BASIC files. These codes differ depend- 
ing on how the file was saved and whether it is a program file or a BASIC file. The file code for 
any file can be requested with the MPE command FGETINFO. 

Program File (SAVE) 1026 
Program File (FAST SAVE) 1027 
BASIC Formatted File 1025 

Other file attributes may be obtained with the MPE command :LISTF filename, 2 

The number 2 is a code that provides detailed file information for each file listed. The filename 
may be fully qualified with the user's lockword, group, and account names. 

ASCII FILES 

ASCII files contain data in ASCII character code. Each 16-bit word contains two characters. 
BINARY FILES 

Binary files have no format words or string headers. The number of words needed for each data 
item depends on the type of the item, as follows: 

Data Type Number of Words 

Integer 1 
Real 2 
Long 4 
Complex 4 

String (length + l)/2 
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A 

A, in formatted output: 9-7, 9-8 
ABORT command: 7-11 
ADVANCE syntax: C-8 
ADVANCE #, formatted files: 8-29 
ALL, CATALOG: 2-62 
AND: 2-7 

APPEND command: 2-62 
arithmetic operator: 2-6 
array addition : 3-13 
array copying: 3-10 
array function: 3-20 
array initialization: 3-10 
array inversion: 3-16 
array multiplication: 3-14 
array redimensioning: 3-4 
array scalar multiplication: 3-19 
array size: 3-2 
array substraction: 3-13 
array transposition: 3-18 
arrays: 3-1 

arrays, direct file print: 8-36 
arrays, direct file read: 8-37 
arrays, formatted print: 9-4 
arrays, numeric: 4-10 
arrays, serial file print: 8-35 
arrays, serial file read: 8-35 
ASCII characters: A-l 
ASCII file access: 8-22 
I ASCII file input: 8-23, 12-9, 9-3a, 9-5a 
ASCII file read: 8-23 
ASCII file structure: H-3 
ASCII files: 8-1 
ASSIGN statement: 8-9 
ASSIGN syntax: C-8 
assignment statement: 2-11 



B 

>BASIC: 2-49 
:BASIC command: 1-4, 12-2 
BASIC formatted files: 8-1 
BASIC program: 1-10 



BASIC/ 2000 compatibility: G-l 
batch processing: 12-2 
binary file access: 8-24 
binary file structure: H-3 
binary files: 8-2 
binary operator: 2-6 
BNF syntax: C-l 
Boolean operator: 2-7 
BREAK: 1-2 
BREAK command: 7-7 
breakpoint commands: 7-8 
BUF function: 2-45 
buffering input: 2-42 
built-in functions: E-l 
:BYE: 1-5 



c 

C, formatted output: 9-7,9-11 

CALL statement: 11-2 

calling FORTRAN subprogram: 11-3 

calling SPL procedure: 11-6 

CALLS command, during break: 7-20 

card reader control: 12-2 

carriage control characters: 9-14 

carriage control function: 2-37 

carriage return: 1-2 

CATALOG command: 2-62 

CHAIN statement: 10-2 

CHAIN syntax: C-10 

changing statements: 1-9 

character set: A-l 

CHRS function: 5-12 

class of functions: 4-11, E-l 

closing files: 8-6 

COL function: 3-20 

COL function, string arrays: 5-14 

columns: 3-1 

COM statement: 10-9 

COM syntax: C-10 

command errors: B-l 
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command summary: D-6 E 



ft r n n 



FILES syntax: C-7 

fileset: 2-62 

fixed-point form: 4-3 

fixed-point formatted output: 9-10 

fixed-point number: 2-2 

floating-point form: 4-3 

floating-point formatted output: 9-10 

floating-point number: 2-3 

FNEND statement: 6-4 

FOR loop, input item: 2-42 

FOR loop, print item: 2-31 

FOR statement: 2-22 

FOR syntax: C-4 

format strings: 9-7 

format symbols: 9-7 

formatted file creation: 8-3 

formatted file structure: H-l 

formatted files: 8-1 

formatted printing: 9-1 

FORTRAN subprograms: 11-2 

FREQ, RUN: 2-51 

function: 2-5 

function call: 6-7 

function class: 4-11, E-l 

function definition, multiline: 6-4 

function definition, one-line: 6-2 

functions, built-in: E-l 

G 

GET command: 2-61 

GO command: 7-12 

GOSUB statement: 2-16 

GOSUB syntax: C-4 

GOTO statement: 2-14 

GOTO syntax: C-4 

grouping, formatted output: 9-13 

H 

:HELLO; 1-4 
I 

I, formatted output: 9-7, 9-8, 9-11 
IDN function: 3-10 
IF END #, files: 8-27 
IF syntax: C-4 

IF . . . THEN statement: 2-25 

IMAGE statement: 9-6 

IMAGE syntax: C-9 

input data: 2-39 

input interrupt: 2-49 

INPUT statement: 2-42 

INPUT statement, strings: 5-18 

INPUT syntax: C-5 

integer: 2-2 

integer expression: 2-2 

integer form: 4-3 

integer formatted output: 9-10 



INTEGER statement: 4-2 
internal file numbers: 10-7 
interprogram transfer: 10-1 
INVOKE statement: 10-4 
INVOKE syntax: C-10 
ITM function: 8-34 

K 

K,formatted output: 9-7, 9-12 
KEY command: 12-7 
keys, special: 1-2 

L 

leaving BASIC: 1-5 
LEN function: 5-12 
LENGTH command: 2-56 
LET statement: 2-11 
LET statement, strings: 5-10 
LET syntax: C-3 
library commands: 2-59 
LIN function: 2-36 
linefeed: 1-2 
line-printer control: 12-2 
LINPUT statement: 5-21 
LINPUT syntax: C-7 
LINPUT #, ASCII files: 8-23 
LIST command: 2-54 
listing a program: 1-12 
literal formatted output: 9-8 
literal string: 2-4 

literal string, formatted output: 9-8 

local file numbers: 10-7 

LOCK syntax: C-8 

LOCK #, files: 8-25 

locking files: 8-25 

logging off: 1-5 

logging on: 1-4 

logical operator: 2-7 

long form: 4-4 

LONG statement: 4-2 

loops: 2-22 

M 

M, formatted output: 9-7, 9-9 
magnitude: 2-3 
MARGIN statement: 8-23a 
MARGIN syntax: C-8 
MARGIN #, ASCII files: 8-23a 
MAT Add statement: 3-13 
MAT Assignment syntax: C-7 
MAT Copy statement: 3-12 
MAT Initialization syntax: C-6 
MAT INPUT statement: 3-6 
MAT INPUT syntax: C-6 
MAT Inverse statement: 3-16 
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MAT Multiply statement: 3-14 

MAT PRINT statement: 3-8 

MAT PRINT syntax: C-6 

MAT PRINT USING statement: 9-4 

MAT PRINT # USING statement: 9-5a 

MAT PRINT USING syntax: C-9 

MAT PRINT # USING syntax: C-9 

MAT PRINT #, direct files: 8-36 

MAT PRINT #, serial files: 8-35 

MAT READ statement: 3-6 

MAT READ syntax: C-6 

MAT READ #, direct files: 8-37 

MAT READ #, serial files: 8-35 

MAT Scalar Multiply statement: 3-19 

MAT Subtract statement: 3-13 

MAT Transpose statement: 3-18 

matrix (see arrays, MAT statements): 3-1 

MAX: 2-7 

MIN: 2-7 

mixed-mode arithmetic: 4-7 
MOD: 2-6 

modifying formatted files: 8-30 
MPE/3000 interface: 11-10 
multiline function: 6-4 
Multiple File Locking: 8-26 

N 

NAME command: 2-59 
NEXT statement: 2-22 
NEXT syntax: C-4 
NOECHO.RUN: 2-51 
non-BASIC programs: 11-1 



P 

paper tape control: 12-5 

paper tape read: 12-7 

parameter format: F-l 

parameters, actual: 6-7 

parameters, formal: 6-2 

parameters, passing: 6-11 

passing data, segmented programs: 10-9 

passing parameters: 6-10 

password: 1-4 

POS function: 5-13 

print formats: 2-33 

print functions: 2-36 

print line length control: 8-23a 

print list: 2-31 

PRINT statement: 2-31 

PRINT statement, strings: 5-20 

PRINT syntax: C-5 

PRINT USING statement: 9-2 

PRINT # USING statement: 9-3a 

PRINT USING syntax: C-8 

PRINT # USING syntax: C-8 

PRINT #, direct files: 8-18 

PRINT #,serial file: 8-13 

printing complex numbers: 4-6 

printing long numbers: 4-6 

PROG, BREAK: 7-7 

PROG, TRACE: 7-2 

program: 1-10 

program execution: 1-13 

program termination: 2-19 



relational value: 2-7 
REM statement: 2-13 
REM syntax: C-4 
remarks: 2-13 

RENUMBER command: 2-56 
replicator, formatted output: 9-8 
RESTORE data statement: 2-39 
RESTORE statement,strings: 5-17 
RESTORE syntax: C-5 
RESTORE # statement: 8-17 
RESUME command: 7-12, 11-10 
return: 1-2 

RETURN, function: 6-4 

RETURN, subroutine: 2-16 

rewind files: 8-17 

ROW function: 3-20 

ROW function, string arrays: 5-14 

rows: 3-1 

RUN command: 2-51 
run errors: B-2 
running a program: 1-13 
RUNONLY, SAVE: 2-60 



S 

S, formatted output: 9-7, 9-9 
SAVE command: 2-59 
SCRATCH command: 2-55 
scratching a program: 1-14 
segmented libraries: 11-2 
segmenting programs: 10-1 
separators, formatted output: 9-12 
serial file access: 8-12 
serial file MAT PRINT statement: 8r35 
serial file MAT READ statement: 8-35 
serial file PRINT statement: 8-13 
serial file READ statement: 8-15 
SET command: 7-16 
sharing files: 8-25 
SHOW command: 7-14 
skipping items in file: 8-29 
SL: 11-2 

SPA function: 2-36 
SPL procedures: 11-2 
SPOOL command: 12-8 
START=, CATALOG: 2-63 
statement label (see statement number) 
statement number: 1-7 
statement summary: D-l 
statements: 1-7 

STOP, segmented programs: 10-4 
STOP statement: 2-19 
stopping listing: 2-63 
stopping output: 2-63 
string array: 5-6 
string array initialization: 5-22 
string array operations: 5-22 
string assignment: 5-10 
string comparison: 5-16 



string constants: 5-1 
string expressions: 5-9 
string formatted output: 9-8 
string functions: 5-12 
string literals: 5-1 

string MAT Initialize statement: 5-22 
string to numeric conversion: 5-23 
string size: 5-6 
subscripts: 3-1 
substring designator: 5-6 
substrings: 5-7 
suspending BASIC: 1-5 
syntax: C-l 
syntax errors: B-l 
SYSTEM command: 11-10 
SYSTEM statement: 11-12 
SYSTEM syntax: C-10 
: SYSTEM command: 1-5 

T 

TAB function: 2-36 
TAPE command: 12-7 
terminating a program: 2-19 
TIM function: E-3 
timed input: 2-47 
TRACE command: 7-2 
true value: 2-7 
two-dimensional array: 3-1 
TYP function: 8-32 
type conversion: 4-8 
Type statements: 4-2 
Type syntax: C-6 

U 

unary operator: 2-6 
UNBREAK command: 7-7 
UNLOCK syntax: C-8 
UNLOCK*, files: 8-25 
UNTRACE command: 7-2 
UPDATE syntax: C-8 
UPDATE*, formatted files: 8-30 
UPS$ function: 5-13 
user-defined functions: 6-1 
user's library: 2-59 
user's work area: 1-11 

V 

variable: 2-4 
variable types: 4-1 

W 

WAIT command: 7-23 
work area: 1-11 
WRD function: 5-13 
write direct file: 8-18 
write serial file: 8-13 
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X 



X, formatted output: 9-7, 9-8 
XEQ command: 12-9 

Z 

ZER function: 3-10 

Special Characters 



&: 1-8 

$, formatted output: 9-7, 9-8 
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11620A - 168th Streel 
EdmontonT5M 3T9 
Tel: (403) 452-3670 
TWX: 610-831-2431 
Hewlett-Packard (Canada) Ltd. 
210.7220 Fisher St S E 
Calgary T2H 2H8 
Tel: 7403) 253-2713 
Twx: 6I0-82I-6I4I 



BRITISH COLUMBIA 

Hewlett- Packard (Canada) Ltd. 
837 E. Cordova Street 
Vancouver V6A 3R2 

Tel. (604) 254-0531 
TWX: 610-922-5059 



MANITOBA 

Hewlett-Packard (Canada) Ltd 
513 Century St. 
St James 

Winnipeg R3H 0L8 

Tel: (204 ) 786-7581 
!WX 610-671-3531 



NOVA SCOTIA 

Hewlett-Packard (Canada) Ltd 
800 Windmill Road 
Dartmouth B3B 1L1 
Tel (902) 469-7820 
TWX 6I0-27I-4482 HFX 



ONTARIO 

Hewlett-Packard (Canada) Ltd 
1020 Morrison Di 
Ottawa K2H 8K7 
Tel (613) 820-6483 
TWX 610-563-1636 
Hewlett-Packard (Canada) Ltd 
6877 Goreway Drive 
Mississauga L4V 1M8 
Tel: (416) 678-9430 
TWX: 610-492-4246 



QUEBEC 

Hewlett-Packard (Canada! Ltd 
275 Hymus Blvd 
Pointe Claire H9fl 1G7 

Tel (514) 697-4232 
TWX 610-422-3022 
TLX 05-821521 HPCL 



FOR CANADIAN AREAS NOT LISTED: 

Contact Hewlett-Packard (Canada) 
Ltd m Mississauga 



CENTRAL AND SOUTH AMERICA 



ARGENTINA 

Hewlett-Packard Argentina 

S A. 

Av Leandro N Alem 822 - 12 
1001Buenos Aires 

Tel: 31-6063,4,5.6 and 7 
Telex: 122443 AR CIGY 
Cable HEWPACK ARG 

BOLIVIA 

Casa Kavlin S.A 
Calie Potosi' 1130 
P.O Box 500 
La Paz 

Tel 41530,53221 

Telex: CWC BX 5298. ITT 3560082 

Cable: KAVLIN 

BRAZIL 

Hewlett-Packard do Brasil 

l.e.C. Ltda. 

Avemda Rio Negro. 980 
Alphaville 
06400Barueri SP 

Tel: 429-3222 



Hewlett- Packard do Brasil 
I e C Ltda 

Rua Padre Chagas. 32 
90000-Porto Alegre-RS 
Tel (0512) 22-2998. 22-5621 
Cable HEWPACK Potto Alegre 
Hewlett-Packard do Brasil 
I E C Ltda 

Rua Siqueira Campos. 53 
Copacabana 

20000-Rio de Janeiro 
Tel 257-80-94-DDD (021) 
Telex 391-212-1905 HEWP-BR 
Cable: HEWPACK 
Rio de Janeiro 
CHILE 

Calcagm y Metcalfe Ltda 
Alameda 580-Of 807 
Casilla 2118 
Santiago, 1 
Tel 398613 

Telex: 3520001 CALMET 
Cable: CALMET Santiago 



COLOMBIA 

Instrumentacidn 

Henrik A. Langebaek & Kier S A. 
Carrera 7 No 48-75 
Apartado AeVeo 6287 
Bogota, I D E 
Tel: 69-88-77 
Cable: AARIS Bogota 
Telex 044-400 

COSTA RICA 

Cientifica Costamcense S A 

Avenida 2. Calie 5 

San Pedro de Montes de Oca 

Apartado 10159 

San Jose 

Tel: 24-38-20, 24-08-19 
Telex: 2367 GALGUR CR 
Cable: GALGUR 



ECUADOR 

Calculators Only 

Computadoras y Equipos 

Electrdmcos 

P 0 Box 6423 CCI 

Eloy Allaro #1824.3 Piso 

Quito 

Tel 453482 

Telex. 02-2113 Sagita Ed 
Cable: Sagila-Ouito 

EL SALVADOR 

Instrumentacton y Procesamiento 

Electronico de el Salvador 
Bulevar de los Heroes 11-48 
San Salvador 

Tel. 252787 

GUATEMALA 

IPESA 

Avenida La Reforma 3-48. 
Zona 9 

Guatemala City 

Tel 63627 . 64786 
Telex: 4192 Teletro Gu 



MEXICO 

Hewlett-Packard Mexicana 
S A de C V 

Av Perifenco Sur No 6501 
Tepepan. Xochimilco 
Mexico 23, D F 
Tel: 905-676-4600 
Hewlett-Packard Mexicana, 
S.A de C V 

Ave Constitucirjn No 2184 
Monterrey, N L 

Tel. 48-71-32, 48-71-84 
Telex: 038-410 

NICARAGUA 

Roberto Teran G 
Apartado Postal 689 
Edificio Teran 
Managua 

Tel: 25114. 23412,23454 
Cable. ROTERAN Managua 

PANAMA 

Electrdnico Balboa. S.A 
P.O. Box 4929 
Calle Samuel Lewis 
Cuidad de Panama 

Tel: 64-2700 

Telex. 3483103 Curunda, 

Canal Zone 
Cable ELECTRON Panama 



PERU 

Companla Electro Medica S A 
Los Flamencos 145 
San Isidro Casilla 1030 
Lima 1 
Tel. 41-4325 
Cable ELMED Lima 

PUERTO RICO 

Hewlett-Packard Inter-Americas 
Puerto Rico Branch Office 
Calle 272. 

No 203 Urb Country Club 
Carolina 00924 
Tel (809) 762-7255 
Telex 345 0514 

URUGUAY 

Pablo Ferrando S A 
Comercial e Industrial 
Avenida Italia 2877 
Casilla de Correo 370 
Montevideo 
Tel 40-3102 

Cable: RADIUM Montevideo 



C A 

P.O Box 50933 
Caracas 105 
Los Ruices Norte 
3a Transversal 
Edificio Segre 
Caracas 107 
Tel 35-00-11 (20 lines) 
Telex 25146 HEWPACK 
Cable HEWPACK Caracas 

FOR AREAS NOT LISTED, CONTACT: 

Hewlett-Packard 
Inter-Americas 
3200 Hiflview Ave. 
Palo Alto. California 94304 
Tel (415) 493-1501 
TWX 910-373-1260 
Cable: HEWPACK Palo Alto 
Telex 034-B300. 034-8493 



EUROPE, NORTH AFRICA AND MIDDLE 



EAST 



AUSTRIA 

Hewlett-Packard Ges.m.b H. 

Handelskat 52 

P 0 box 7 

A- 1205 Vienna 

Tel (0222) 351621 to 27 

cable. HEWPAK Vienna 

Telex 75923 hewpak a 

BELGIUM 

Hewlett-Packard Benelux 

S.A./N.V. 

Avenue de Col-Vert. 1, 
'.G'oenfcraagiaan; 
B-1170 Brussels 
Tel (02} 672 22 40 
Cafjie. PALOBEN Brussels 
Telex: 23 494 paloben bru 

CYPRUS 

Kypronics 

19. Gregorios & Xenopoulos Rd 

P 0 Box 1 1 52 

CY-Nicosia 

Tel. 45628/29 

Cable KYPRONICS PANDEHIS 
Telex 3018 

CZECHOSLOVAKIA 

Vyvojova a Provozni Zakladna 
Vyzkumnych Ustavu v Bechovicich 
CSSR-25097 Bechovice u Prahy 
Tel 89 93 41 
Telex. 121333 
institute of Medical Bionics 
Vyskumny Ustav Lekarskei Biomky 
Jedlova 6 

CS-86346 Bratislava-Kramare 

Tel: 44-551/45-541 

DDR 

Entwicklungslabor der TU Dresden 
Forschungsinstitut Memsberg 
ODR-7305 

Waldheim.'Memsberg 
Tel: 37 667 
Telex: 112145 
Export Contact AG Zuerich 
Guenther Forgber 
Schlegelstrasse 15 
1040 Berlin 
Tel: 42-74-12 
Telex: 111889 

DENMARK 

Hewlett-packard A S 
Dalavej 52 
DK-3460 Birkerod 
Tel (02) 81 66 40 
Cable HEWPACK AS 
Telex 37409 hpas dk 
Hewlett-Packard A/S 
Navervei 1 

DK-B600 Silkeborg 
Tel (06) 82 71 66 
Telex: 37409 hpas dk 
Cable HEWPACK AS 

FINLAND 

Hewlett-Packard OY 
Nahkahousuniie 5 
P 0. Box 6 

SF-00211 Helsinki 21 
Tel: (90) 6923031 
Cable: HEWPACKOY Helsinki 
Telex 12-1563 HEWPA SF 

FRANCE 

Hewlett-Packard France 
Quarter de Courtaboeul 
Boite Postale No. 6 
F-91401 Orsay Ce'dex 
Tel (1) 907 78 25 
Cable: HEWPACK Orsay 
Telex- 600046 
Hewlett-Packard France 
Agency Regionale 
"Le Saqum' 
Chemm des Mouilles 
BP 162 
F- 69 130 Ecully 
Tel: (78) 33 81 25, 
Cable: HEWPACK Eculy 
Telex: 31 06 17 



Hewlett- Packard France 
Agence Regionale 
PeVicentre de la CepieVe 
Chemm de la CepiSre, 20 
F 31300 Toulouse-Le Mirail 
Tel (61) 40 11 12 
Cable: HEWPACK 51957 
Telex: 510957 
Hewlett-Packard France 
Agence Regionale 
Aeroport principal de 
Marseille-Mangnane 
F-13721Marignane 
Tel (91) 89 12 36 
Cable: HEWPACK MARGN 
Telex 410770 
Hewlett-Packard France 
Agence Regionale 
63. Avenue de Rochester 
BP 1124 

F-35014 Rennes C^dex 

Tel (99) 36 33 21 

Cable HEWPACK 74912 

Telex 740912 

Hewlett-Packard France 

Agence Regionale 

74. Allee de la Roberlsau 

F-67000 Strasbourg 

Tel (88) 35 23 20/21 

Telex 890141 

Cable HEWPACK STR8G 

Hewlett -Packard France 

Agence Regionale 

Centre Vauban 

201. rue Colbert 

Entree A2 

F-59000 Lille 

Tel: (20) 51 44 14 

Telex: 820744 

Hewlett-Packard France 

Centre d Affaires Pans-Nord 

Batiment Ampere 

Hue de La Commune de Pans 

8 P 300 

(-93153 Le Blanc Mesnil CCdex 

Tel. (01) 931 88 50 

GERMAN FEDERAL 
REPUBLIC 

Hewlett-Packard GmbH 

Vertnebszentrale Frankfurt 

Bernerstrasse 117 

Posrfach 560 140 

0-6000 Frankfurt 56 

Tel (0611) 50 04-1 

Cable HEWPACKSA Frankfurt 

Tel (0611) 50 04-1 

Cable HEWPACKSA Frankfurt 

Telex: 04 13249 hptlmd 

Hewlett-Packard GmbH 

Techniscfies Buero Boblingen 

Herrenbergerstrasse HO 

D-7030 Boblingen. Wu member g 

Tel (07031) 66A1 

Cable HEPAK Boblingen 

Telex. 07265739 bbn 

Hewlett-Packard GmbH 

Technisches Buero Dusseldort 

Emanuel-Leutze-Slr 1 (Seestern) 

D-4000 Dusseldort 11 

Tel: (0211) 59711 

Telex 085/86 533 hpdd d 

Hewlett-Packard GmbH 

Technisches Buero Hamburg 

WenOertstrasse 23 

0 2000 Hamburg 1 

Tel. (0401 24 13 93 

Cable HEWPACKSA Hamburg 

Telex: 21 63 032 hpnh d 

Hewlett-Packard GmbH 

Technisches Buero Hannover 

Am Grossmarkt 6 

O-3000 Hannover 91 

Tel: (0511) 46 60 01 

Telex: 092 3259 



Hewlett-Packard GmbH 
Werk Groetzmgen 
Ohmstrasse 6 
D-7500 Karlsruke 41 
Tel: (0721) 69 40 06 
Telex 07-825707 
Hewlett-Packard GmbH 
Technisches Buero Nuremberg 
Neumeyer Sir 90 
0-8500 Nuremberg 
Tel (0911) 56 30 83/85 
Telex 0623 860 
Hewlett-Packard GmbH 
Technisches Buero Munchen 
Unternachinger Strasse 28 
ISAR Center 
D-S012 Ottobrunn 
Tel (089) 601 30 61'7 
Cable HEWPACKSA Munchen 
Telex: 0524985 
Hewlett-Packard GmbH 
Technisches Buero Berlin 
Keith Strasse 2-4 
D-1000 Berlin 30 
Tel (030) 24 90 86 
Telex 18 3405 hpbln d 

GREECE 

Kostas Karayanms 
08, Omirou Street 
GR- Athens 133 
Tel 3237731 
Cable: RAKAR Athens 
Telex: 21 59 62 rkar gr 
Analytical Only 
INTEC0 G Papalhanassiou & Co. 
Marni 17 

GR - Athens 103 

Tel 522 1915 
Cable. INTEKNIKA Athens 
Telex: 21 5329 INTE GR 
Medical Only 
Technomed Hellas Ltd. 
52.Skoouta Street 
GR Athens 135 
Tet: 362 6972. 363 3830 
Cabie.ETALAK athens 
Telex: 21-4693 ETAL GR 

HUNGARY 

MTA 

Musierugyi e"s MeTestechmkai 

Szolgalata 

Lenin Krt 67 

1391 Budapest VI 

Tel. 42 03 38 

Telex: 22 51 14 

ICELAND 

Medical Only 

Elding Trading Company Inc 
Hafnarnvoh - Tryggvatolu 
IS- Reykjavik 
Tel 1 58 20 

Cable: ELDING Reykiavik 
IRAN 

Hewlett-Packard Iran Ltd 

No 13. Fourteenth St 

Miremad Avenue 

P.O. Box 41/2419 

I R- Tehran 

Tel 851082-7 

Telex 21 25 74 khrm ir 

IRAQ 

Hewlett-Packard Trading Co 
4/1/8 Mansoor City 
Baghdad 
Tet: 5517827 
Telex 2455 hepairaq ik 
Cable. HEWPACDAO, 
Baghdad Iraq 

IRELAND 

Hewlett Packard Ltd 
King Street Lane 
GB-Winnersh,Wokingham 
Berks, RG11 5AR 
Tel: (0734) 78 47 74 
Telex: 847178/848179 



ITALY 

Hewlett-Packard Italiana S p. A 
Via Amerigo Vespucci 2 
Casella postale 3645 
1-20100 Milano 
Tet: (2) 6251 (10 lines) 
Cable HEWPACKIT Milano 
Telex 32046 

Hewlett-Packard italiana S p A. 
Via Pietro Maroncelli 40 
(ang Via Visentm) 
1-35100 Padova 
Tel: (49) 66 48 88 
Telex 41612 Hewpacki 
Medical on'y 

Hewlett-Packard Italiana S p A 
Via d Aghiardi, 7 
1-56100 Pisa 
Tel (050) 2 32 04 
Telex 32046 via Milano 
Hewlett-Packard Italiana S.p A 
Via G Armellini 10 
1-00143 Roma 
Tel (06] 54 69 6l 
Telex 61514 

Cable HEWPACKIT Roma 
Hewlett-Packard Italiana S.p. A 
Corso Giovanni Lanza 
1-1031 Torino 
Tel (0111 682245/659308 
Medical-Calculators Only 
Hewlett-Packard Italiana S p. A 
Via Principe Nicola 43 G/C 
1-95126 Catania 
Tel (095) 37 05 04 
Hewlett-Packard Italiana S p. A 
Via Amerigo Vespucct, 9 
1-80142 Napoli 
Tel (081) 33 77 11 
Hewlett-Packard Italiana S p. A. 
Via E. Masi, 9/B 
1-40137 Bologna 
Tel: (051) 30 78 87 

KUWAIT 

Al-Khaldiya Trading & 

Contracting Co. 
P O Box 830-Satt 
Kuwait 

Tel: 424910-411726 
Telex: 2481 areeg kt 
Cable VISCOUNT 

LUXEMBURG 

Hewlett-Packard Benelux 

S A./N.V. 

Avenue du Col-Vert. 1. 
(Groenkraaglaan) 
B-1170 Brussels 
Tel: (02) 672 22 40 
Cable PALOBEN Brussels 
Telex 23 494 

MOROCCO 

Gerep 

190. Blvd Brahim Roudani 
Casablanca 

Tel 25-16-76/25-90-99 
Cable Gerep-Casa 
Telex: 23739 

NETHERLANDS 

Hewlett-Packard Benelux N V 

Van Heuven Goedhartlaan 121 

P O Box 667 

NL-1134 Amstelveen 

Tel (020) 47 20 21 

CaOle. PALOBEN Amsterdan 

Telex 13 216 hepa nl 

NORWAY 

Hewlett-Packard Norge A/S 
Nesveien 13 
Box 149 

N-1344 Haslum 
Tel (02) 53 83 60 
Telex: 16621 hpnas n 



POLAND 

Biuro Intormacjt Technicznei 

Hewlett-Packard 

Ut Stawki 2, 6P 

00-950Warszawa 

Tel 395963/395187 

Telex 81 24 53 hepa pi 

UNIPAN 

Zaklad Doswiadczalny 

Budowy Aparatury Naukowei 

U! Kraiowej Rady Narodowei 51/55 

00-800 Warszawa 

Tel. 36190 

Telex 81 46 48 

Zaklady N3prawcze Sprzetu 

Medycznego 
Plac Komuny Paryskiei 6 
90-007 Lddz 
Tel: 334-41. 337-83 

PORTUGAL 

Telectra-Empresa Tficnica de 

Eguipamentos Ele"ctncos S a r I 

Rua Rodngo da Fonseca 103 

P.O. Box 2531 

P Lisbon 1 

Tet: (19) 68 60 72 

Cable TELECTRA Lisbon 

Telex 12598 

Medical only 

Mundinter 

Intercambio Mundiai de Comercio 

S a.r.l 

Av A. A de Aguiar 138 

P.O. Box 2761 

P - Lisbon 

Tel (19) 53 21 31/7 

Cable: INTERCAMBIO Lisbon 

RUMANIA 

Hewlett-Packard Reprezentanta 

Bd N Balcescu 16 

Bucharest 

Tet: 158023/138885 

Telex 10440 

I I R LLC 

Intreprinderea Pentru 

intretinerea 
Si Repararea Utilajelo r de Calcul 
B-dul prof Oimitrie Pompei 6 
Bucharest-Sectorul 2 
Tel: 12 64 30 
Telex: 11716 

SAUDI ARABIA 

Modern Electronic Establishment 
King Abdul Aziz sir (Head office) 
P.O Box 1228 
Jed da h 

Tet: 31173-332201 

Cable ELECTRA 

P.O Box 2728 (Service center) 

Riyadh 

Tel 62596-66232 
Cable RAOUFCO 

SPAIN 

Hewlett-Packard Espanola, S.A 
Jerez, Calle 3 
E- Madrid 16 

Tel (1) 458 26 00 (10 lines) 
Telex: 23515 hpe 
Hewlett-Packard Espanola, S.A 
Milanesado 21-23 
E-Barcelona 17 
Tel (3 ) 203 6200 ( 5 lines) 
Telex 52603 hpbe e 
Hewlett-Packard Espahola. S.A. 
Av Ramon y Caial 1 
Ediftcio Sevilla. planta 9. 
E- Seville 5 
Tel 64 44 54/58 
Hewlett-Packard Espanola S.A 
Edificio Albia II 7 B 
E- Bilbao- 1 

Tel 23 83 06/23 82 06 
Calculators Only 
Hewlett-Packard Espanola S.A. 
Gran Via Fernando El Catdlico. 67 
E- Valencia- 8 
Tel 326 67 28/326 85 55 



SWEDEN 

Hewlett-Packard Svenge AB 
Emghetsvagen 1-3 
Fack 

S-161 20 Bromma ?0 
Tel. (08) 730 05 50 
Cable: MEASUREMENTS 

Stockholm 
Telex: 10721 

Hewlett-Packard Svenge AB 

Ostra Vmtergatan 22 

S-702 40 Orebro 

Tel (019) 14 07 20 

Hewlett-Packard Svenge AB 

FrOtailsgatan 30 

S-421 32 Vastra Frdlunda 

Tel (031) 49 09 50 

Telex 10721 Via Bromma Office 

SWITZERLAND 

Hewlett-Packard (Schweiz) AG 
Zurcherstrasse 20 
P.O. Box 307 

CH 8952 Schlieren-Zurich 

Tel (01) 730 52 40/730 18 21 

Cable HPAG CH 

Telex: 53933 hpag ch 

Hewlett-Packard (schweizl AG 

Chateau Bloc 19 

CH-1219 Le L ig no n- Geneva 

Tel: (022) 96 03 22 

Cable HEWPACKAG Geneva 

Telex 27 333 hpag ch 

SYRIA 

Medical/Calculator only 

Sawah & Co 

Place Azme' 

B P. 2308 

SYR- Damascus 

Tel 16367. 19697, 14268 

Cable: SAWAH. Damascus 

TURKEY 

Telekom Engineering Bureau 

P.O Box 437 

BeyogTu 

TR Istanbul 

Tel 49 40 40 

Cable: TELEMATION Istanbul 
Telex 23609 
Medical only 
E M A. 

MuhendiSlik KolleWil Sirketi 

Adakale Sokak 41/6 

TR- Ankara 

Tel 175622 

Analytical only 

Yilmaz Ozyurek 

Miih Mudalaa Cad No 16/6 

Kizilay 

TR- Ankara 

Tel: 25 03 09 

Telex: 42576 ozek tr 

UNITED KINGDOM 

Hewlett- Packard Ltd 
King Street Lane 
GB-Winnersh, Wokmgnam 
Berks RG11 5AR 
Tel (0734) 78 47 74 

Cable Hewpie London 
Telex:847178/9 

Hewlett-Packard Lid 
Trafalgar House, 
Navigation Road 
Altrincham 
Cheshire WA14 1NU 
Tel (061) 928 6422 
Telex 668068 

Hewlett-Packard Ltd 
Lygon Court 
Hereward Rise 
Dudley Road 
Halesowen, 
West Midlands B62 8SD 
Tel (021} 550 9911 
Telex: 339105 



Hewlett Packard Ltd 
Wedge House 
799. London Road 
GB- Thornton Heath 
Surrey CR4 6XL 
Tel (01) 684 0103 6 
Telex 946825 

Hewlett-Packard Ltd 
CO Makro 

South Service wholesale Centre 
Wear industrial Estate 
Washington 

GB-New Town. County Durham 
Tet: Washington 464001 ext. 57'58 

Hewlett-Packard Ltd 
10. Wesley St 
GB Castleford 

West Yorkshire WF10 1AE 
Tel (09775) 50402 
Telex: 557355 

Hewlett-Packard Ltd 
1. Wallace Way 
GB-Hitchin 

Herts 

Tel (0462) 52824-56704 

Telex 825981 

Hewtet-Packard Ltd 

2C Avonbeg Industrial Estate 

Long Mile Road 

Dublin 12 

Tel- Dublm 509458 

Telex: 30439 

HewsetT Packard 

Representative Office USSR 

Pokrovsky Boulevard 4/17-KW 12 

Moscow 101000 

Tel 294-2024 

Telex 7825 hewpak su 

YUGOSLAVIA 

iskra-standard; Hewlett- Packard 
M.kiOMCPva 38 VII 
61000 Ljubljana 
Tetb: 31 58 79/32 16 74 
Telex: 31583 

SOCIALIST COUNTRIES 
NOT SHOWN PLEASE 
CONTACT: 

Hewlett-Packard Ges.m b.H 
P.O. Box 7 

A-1205 Vienna. Austria 
Tel: (0222) 35 16 21 to 27 
Cable HEWPAK Vienna 
Telex 75923 hewpak a 

MEDITERRANEAN AND 

MIDDLE EAST COUNTRIES 

NOT SHOWN PLEASE CONTACT; 

Hewlett- Packard S.A. 

Mediterranean and Middle 

East Operations 

35. Kolokotroni Street 

Platia Kefallanou 

GR-Kifissia-Athens. Greece 

Tet 8080337,359/429 

Telex: 21-6588 

Cable: HEWPACKSA Athens 

FOR OTHER AREAS 
NOT LISTED CONTACT 

Hewlett-Packard S.A 
7, rue du 8ois-du-Lan 
P.O Box 

CH-1217 Meyrm 2 - Geneva 

Switzerland 

Tel: (022) 82 70 00 

Cable HEWPACKSA Geneva 

Telex: 2 24 86 



UNITED STATES 



ALABAMA 

8290 Whilesburg Dr , S E 
P.O. Box 4207 
Huntsvllle 35602 
Tel. (205) 881-4591 
Medical Only 
228 W Valley Ave 
Room 220 

Birmingham 35209 
Tel (205) 942-2081/2 

ARIZONA 

2336 E Magnolia St 
Phoenix 85034 
Tel (602) 244-1361 
2424 East At agon Rd 
Tucson 85706 
Tel: (602) 294-3148 

ARKANSAS 

Medical Service Only 
P.O Box 5646 
Brady Station 
Little Rock 72215 
Tel: (501) 376-1844 

CALIFORNIA 

1430 East Orangethorpe Ave 
Fullerton 92631 
Tel: (714) 870-1000 
3939 Lankershim Boulevard 
North Hollywood 91604 
Tel (213) 877-1282 
TWX: 910-499-2671 
5400 West Rosecrans Blvd 
P O Box 92105 
World Way Postal Center 
Los Angeles 90009 
Tel: (213) 970-7500 
'Los Angeles 
Tel: (213) 776-7500 
3003 Scott Boulevard 
Santa Clara 95050 
Tel: (408) 249-7000 
TWX 910-338 0518 



"Ridgecrest 

Tel (714) 446-6165 
646 W North Market Blvd 
Sacramento 95834 
Tel (916) 929-7222 
9606 Aero Drive 
P O Box 23333 
San Diego 92123 
Tel (714) 279-3200 

COLORADO 

5600 South Ulster Parkway 
Englewood 80110 
Tel: (303) 771-3455 

CONNECTICUT 

12 Lunar Orive 
New Haven 06525 
Tel (203) 389-6551 
TWX. 710-465-2029 

FLORIDA 

P.O. Box 24210 
2806 W Oakland Park Blvd 
Ft. Lauderdale 33311 
Tel (305) 731-2020 
* Jacksonville 
Medical Service only 
Tel (904) 398-0663 
P.O. Box 13910 
6177 Lake Ellenor Dr 
Orlando 32809 
Tel: (305) 859-2900 
P.O 8ox 12826 
Pensacola 32575 
Tel (904) 476-8422 

GEORGIA 

P.O. Box 105005 
Atlanta 30348 
Tel (404) 955-1500 
TWX:810- 766-4890 
Medical Service Only 
'Augusta 30903 
Tel: (404) 736-0592 
P.O Box 2103 
Warner Robins 31098 
Tel: (912) 922-0449 



HAWAII 

2875 So King Street 
Honolulu 96814 
Tel (808! 955-4455 
Telex 723-705 

ILLINOIS 

5201 Tollview Dr. 
Rolling meadows 60008 
Tel (312) 255-9800 
TWX: 910-687-2260 

INDIANA 

7301 North Shadeiand Ave 
Indianapolis46250 

le* (317)842-1000 
TWX: 810-260-1797 

IOWA 

2415 Heinz Road 
Iowa City 52240 
Tel: (319) 338-9466 

KENTUCKY 

Medical Only 
Atkinson Square 
3901 Atkinson Dr , 
Suite 407 Atkinson Square 
Louisville 40218 
Tel: (502) 456-1573 

LOUISIANA 

P O Box 840 

3229-39 Williams Boulevard 
Kenner 70063 
Tel: (504 ) 443-6201 

MARYLAND 

6707 Whitestone Road 
Baltimore 21207 
Tel (301) 944-5400 
TWX 710-862-9157 
2 Choke Cherry Road 
Rockville 20850 
Tel: (301) 948-6370 
TWX: 710-828-9684 

MASSACHUSETTS 

32 Hartwell Ave 
Lexington 02173 
Tel: (617) 861-8960 
TWX 710-326-6904 



MICHIGAN 

23855 Research Drive 
Farmington Hills 48024 
Tel (313) 476-6400 
724 West Centre Ave 
Kalamazoo 49002 
Tel (606) 323-8362 

MINNESOTA 

2400 N Prior Ave 
St. Paul 55113 
Tel (612) 636-0700 

MISSISSIPPI 
'Jackson 

Medical Service only 
Tel: (601) 982-9363 

MISSOURI 

1 1 131 Colorado Ave 
Kansas City 64137 
TeL (816) 763-8000 
TWX: 910-771-2087 
1024 Executive Parkway 
St. Louis 63141 
Tel: (314) 878-0200 

NEBRASKA 

Medical Only 
7I7I Mercy Road 
Suite HO 
Omaha 68106 
Tel: (402) 392-0948 

NEW JERSEY 

W 120 Cenlury Rd 
Paramus 07652 
Tel: (201) 265-5000 
TWX: 710-990-495! 
Crystal Brook Professional 

Building 
Eatontown 07724 
Tel:(201) 542-1384 

NEW MEXICO 

P.O. Box 11634 
Station E 

11300 Lomas Blvd , N.E. 
Albuquerque 87123 
Tel (505) 292-1330 
TWX 910-989-1185 



156 WyatI Drive 
Las Cruces 88001 
Tel: (505) 526-2484 
TWX: 910-9983-0550 
NEW YORK 
6 Automation Lane 
Computer Park 
Albany 12205 
Tel: (518) 458-1550 
201 South Avenue 
Poughkeepsie 12601 
Tel (914) 454-7330 
TWX: 510-253-5981 
650 Pennlon Hill Ottice Park 
Fairport 14450 
Tel. (716) 223-9950 
5858 East Molloy Road 
Syracuse 13211 
Tel (315) 454-2486 
TWX 710-541-0482 
1 Crossways Park West 
Woodbury 11797 
Tel: (516) 921-0300 
TWX: 710-990-4951 

NORTH CAROLINA 

P 0. Box 5188 
1923 North Main Street 
High Point 27262 
Tel: (919) 885-8101 

OHIO 

16500 Sprague Road 
Cleveland 44130 
Tel (216) 243-7300 
TWX 810-423-9430 
330 Progress Rd 
Dayton 45449 
Tet: (513) 859-8202 
1041 Kmgsmill Parkway 
Columbus 43229 
Tel: (614) 436-1041 



OKLAHOMA 

P 0 Box 32008 
Oklahoma City 73132 
Tel (405} 721-0200 

OREGON 

1 7890 SW Lower Boones 

Ferry Road 
Tualatin 97062 
Tel: (503) 620-3350 

PENNSYLVANIA 

1 1 1 Zeta Drive 

Pittsburgh 15238 

Tel (412) 782-0400 

1021 8th Avenue 

King ot Prussia Industrial Park 

King ot Prussia 19406 

Tel (215) 265-7000 

TWX: 510-660-2670 

SOUTH CAROLINA 

6941-0 N Trenholm Road 
Columbia 29260 
Tel (803) 782-6493 

TENNESSEE 
'KnOKville 

Medical Service only 
Tel (615) 523-5022 

3027 Vanguard Dr. 
Director's Plaza 
Memphis 38131 
Tel: (901) 346-8370 

Nashville 

Medical Service only 
Tel: (615) 244-5448 

TEXAS 

P 0 Box 1270 
201 E Arapaho Rd 
Richardson 75080 
Tel: (214) 231-6101 



10535 Harwin Dr 
Houston 77036 
Tel: (713) 776-6400 
205 Billy Mitchell Road 
San Antonio 78226 
Tel (512) 434-8241 

UTAH 

2160 South 3270 West Street 
Salt Lake City 84119 
Tel (8011 972-4711 

VIRGINA 

P 0 Box 12778 

No 7 Koger Exec Center 

Suite 212 

Norfolk 23502 

Tel (804) 461-4025/6 

P 0 Box 9669 

2914 Hungary Springs Road 
Richmond 23228 
Tel (804) 285-3431 

WASHINGTON 

Belle-field Office Pk 
1203-1 14th Ave S E 
Bellevue 98004 
Tel (206) 454-3971 
TWX 910-443-2446 

'WEST VIRGINIA 

Medical/Analytical Only 
Charleston 

Tel (304) 345-1640 

WISCONSIN 

9004 West Lincoln Ave 
West Allis 53227 
Tel (414) 541-0550 

FOR U.S. AREAS NOT LISTEO: 

Contact me regional office 

nearest you Atlanta, Georgia 

North Hollywood, California 

Rockville. Maryland . Rolling Meadows, 

Illinois Their complete 

addresses are listed above 



'Service Only 
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